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Voiçi donc le N°2 de PPC=T Le nombre de 
pages est en augmentation car nombreux sont ceux qui 
a'ont fourni des documents déja tapés. Du coup je n'ai 
pu passer des programmes interessants mais manuscrits. 


ce sera peut -étre pour plus tard. 
Tout semble bien aller pour nous..... 


J-D Dodin (7226 T1) 


EDITORIAL: 


La moindre réparation sur l'unité centrale 
de la 41C nécessite le changement de la plaquette ,soit 
une dépense de 592,70 TTC, attention donc! 


J'ai à peu prés abandonné l'espoir de pou- 
voir éditer la traduction du livre de Wickes pour des 
raisons de désaccord financier. Je n'ai pas eu de ré- 
ponse à mes dernières propositions. 

Du coup j'ai entrepris d'écrire mon propre 
livre sans les limitations imposées à une traduction. 
£e livre qui devrait sortir d'içi un mois donnera une 
description "géographique" des différents aspects de 
la HP-h1C, la programmation synthétique avec le Byte_ 
grabber et le microcode. Je prévois peu de programmes 
dans Le livre car il y en a maintenant de disponibles 
partout. La table des matières (provisoire)serai la 
suivante: 

I) introduction, avertissements 

IL) Géographie de la HP-h1C, les différentes 
zones 

III) La signification des chiffres: la table 
des codes 

IV) Une zone particulière: les registres 


&'état 

V) Programmation synthétique: le Byte Grab- 
ver 

VI) le microcode fonctionnement et instruc- 
tions 


VII) exemples de programmes en microcode 
annexes et références 
zaombre de pages et détails non encore fixés, 
&ans la prochaine circulaire. 


des détails 


appelons que l'assemblée générale de Toulou- 
se se réunira le Samedi 13 Novembre 1982 de L1kh30 à 19h. 
(c'est prés de chez moi). 










à la MJC de La Faourette 
L'ordre du jour sera établi sur place en 
fonction de l'actualité et de la demande des 
LES PROJETS: ï 


Les livres (CTR, HP-SD,CF) sont maintenant 
à commander directement au trésorter JF Stbille (T15) 
réstdence du pays d'Oc, rue des Genets 31500 Toulouse 
tel (61) 48 52 57. 








Nous recherchons toujours des coordinateurs 
de région . Pour Toulouse C'est jean-Luc Basso (Tl11) 
4 rue Jacques Darré 31300 Toulouse qui s'en charge. 
C'est lui auset qui doit assurer la coordination des 
groupes régionaux. Le travatl du coordinateur régto- 
nal est d'organiser sur sa région des rencontres entre 
les me mbres, d'organtser des réunions et d'en faire 
les compterendus, de prendre contact avec le vendeur 
&P local pour faire notre publicité et recruter des 
adhérents. Jean Luc Basso (le secrétaire de PPC-T) 
est chargé de La coordination des groupes. Cela st- 
gnifie qu'il s'occupera de maintentr le contact avec 
eux par lettres, de recevoir les compte rendus et de 
les mettre en forme pour publication;etc... Prenez 
contact avec lut . 

Quand les groupes le déctderont ils pour- 
ront prendre en charge La partie coopérative et li- 
brairte eux même, iis pourront alors s'organiser în- 
dépendamment de Toulouse, ne maintenant que l'abon- 
nement et conservant la cottsatton pour eux. Ce type 
d'organtsation ne sera bten sur jamats imposé aux 
groupes. | 
Un responsable pour l'Ille et Vilaine et voisin: 
(T35) Lebastard 10 rue de la Jalousie 35600 Redon 
(voir “Réactions"} 


X 1H 0 F + 


Koïb 


Franck 


Addenda à “Curve Fitting" par W. (fourni par l'au- 
teur) 

La premiére exécution du programme MCF peut durer plu- 
sieurs minutes à cause de la compilation des GTO. Les 
exécutions suivantes durent environ 90 secondes. 
Probléme avec les toutepremiéres k1C ces machines 

ne sauvaient pas X en Last X lors de l'exécution de 

L+ . Pour voir si c'est votre cas entrez 169,2+,LastX 
si vous ne trouvez pas 169, votre HP a le défaut. Le 
programme MCF doit alors étre modifié ainsi: 









dans l'ordre exact indiqué: 
passer en mode programme 


pressez GTO.117 et entrez STO.L 

pressez GTO.051 et entrez STO.L 

pressez GTO.018 et entrez STO.L 

sortez du mode programme et faites Pack. 

A cause de la façon dont le @ est utilisé par la rou- 
tine d'entrée des données les courbes utilisant 1/X 

ou 1/Y causent parfois l'arret du programme sur "DATA 
ERROR". Si cela se produit, éliminez tous les points 
nuls ou laissez de coté ces courbes, 

Entrez au moins k points quand vous utilisez la sélec- 
tion automatique de courbes (E) du programme MCF. Ceci 
est nécessaire à cause du calcul de RR qui utilise un 
diviseur n-3 pour les courbes 3,6,7,8,12,13,1k et 19. 
Les autres courbes demandent au moins 3 points 


pressez GTO.150 et entrez STO.L ( 


Certains de ceux qui ont demandé le numéro VL N1 de 
PPC-T ont été privés de la derniére page par suite 
d'une erreur de tirage. Il s'agit du tableau des fon- 
ctions logiques avec les flags et les tests. S'ils 


se font connaitre ils recevront le feuille manquante 
par retour. 

















Mauvaise nouvelle: augmentation de cotisation! 
Tout augmente, vous le savez, même le nombre de pages 

de votre journal favori (PPC-T, bien sur!) Il faut donc 
augnenter la cotisation. Les nouveaux chiffres sont les 
suivants: 


25 F . Abonnement à PPC-T 6 numéros en un an: 75 F. Les 
deux pris ensemble 80 F. Ceci est valable pour les 
nouvelles adhésions et les renouvellements à compter 
de Janvier 1983 (numéro du journal). 

Ci dessous la liste des adhérents dont l'a- 
bonnement arrive à échéance: c'est le dernier numéro 
de PPC=-T que vous recevez. Envoyer les renouvellements 
à JF Sibille (T15) Voir p 18 








% SUR LE MARCHE % 


Shammas Software Service (1533-F Honey Grove Drive 
Richmond, Virginia 23229 USA) qui distribue Dta base 
propose également Data base 2 pour les données scienti- 
fiques trouvées dans les formulaires;SHAM-REG 1, pack 
de régression linéaire; SHAM REG 2 régression multi- 
ple jusqu'a 10 variables;SHAM-REG 3 régression pour 
6k modéles d'équations;TRACK caisse enregistreuse; 
Export pour les voyageurs de commerce. 

sur cassette: DBl: 110$;DB2:L40$;SR1:55$;SHR265$; 
cartes magnétiques: T:12$,;EX:20$ le manuel est dispo- 
nible seul, remboursé en cas d'achat du programme. 





PPC-UK diffuse des planches de codes barre pour les 
instructions synthétiques £1 (port inclu pour UK) 
PPC-UK Astage Rectory Lane, Windlesham Surrey GU20 
6BW England 


Le CETIM (Centre technique des Industries de la Meca- 
nique ) réalise des programmes pour la HP k1C. Il vient 

en particulier de diffuser un logiciel complet pour ( 
le calcul des engrenages cylindriques sur HP-k1 CV. 

Les programmes proposés permettront 

- la vérification de la géométrie des engrenages (pro- 
fil,engrénement) 

= le calcul du dimensionnement selon 3 méthodes pos- 
sibles: Henriot 1975,AGMA et AFNOR, 

- la détermination des cotes de controle 
prix: 2000 F pour les ressortissants CETIM, 
pour les autres ( sur carte ou cassettes) 
CETIM 52 av Félix Louat BP 67 60304 Senlis Cedex 
tel (k) 453 32 66 


3000 


(T77) Thomas Jean-Alain m'annonce qu'il va commercia- 
liser une bibliothéque de programmes concernant les 
géométres avis aux intéressés. 


+ LES JOURNEALÉ % 


N°2 de PPC UK avec en particulier un programme de don- 
jons et dragons 

Rien d'Australie depuis PPCTN 12 

Key Notes est toujours celui d'Aout 

Nous avons recu toute une série de journeaux de CCD 

le club PPC Allemand, en cours d'étude. Trés bien im- 
primé, tous les programmes en trés beaux codes barre. 
PPCJ USA Septembre 82 V9 N6: plusieurs programmes pour 


HP15 et 16 
D EE) 
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Cotisation à PPC-T (coopérative,librairie,photocopies ( 





k PROG 


H=POKER, o ee 
Chez Sam,les machines à jouer au poker pullulent.Le 
petit Hachepaikarantai Untriste rôde autour,les po- 
chez vides.il descend lentement la main à son ceintu- 
ron auquel pend un étui...Les visages se crispent.Cn 
se tait...Une mouche volète au dessus des verres et 
des cendiers fumants.Ill ouvre l'étui:on se recule, 
prêt à fuir.ll tient maintenant quelquechose,le pose 
doucement sur la table et s'asseoit.On s'approche,on 
l'entoure...1ll joue au poker avec sa terrible HP4lll 
En avant,Fan du Pokerl!! Size 036,User et taper les 3 
programmes 
-1-XEQ PR.eee--=-MASCOTTE?-=== Introduire la semence 
ex;0,147258369 car O<x<1l et R/S 


RAMMES 


-2- . BANK? Donner notre apport 
pour la partie.Ex:25 

MUCH THANKS 
-3- BET? Introduire une mise 


pour le prochain coup inférieure ou égale à 10.R/S 
-4- 2#,7»,44,94,10%, qui est le jeu 
proposé soit:2 de couleur # 

7 de couleur % 

+ de couleur # 

9 d: couleur 4 

10 de couleur » 
ne rappotent à ce jeu que les figures suivantes: 
-DEUX PAIRES:2 fois 2 cartes de valeur identique 
La mise est douhlée 
-BRELAN:3 cartes de valeur identique:MISE X3 
-SUITE:Main dont les cartes ont des valeurs qui se 
suivent ,mais dont les couleurs sont différentes 
Hise X 4 
COULEUR; Toutes les cartes sont de la même couleur 
ïise X 8 
-FULL;Une paire et un brelan.kise X 10 
CARRE; Quatres cartes de valeur identique.Mise X 25 
-SUITE COULEUR;une suite et une couleur.hiise X 50 
-Suite ROYALEune suite couleur de la forme:AS,ROI, 
DAME ,VALET,DIX.hise...xX 500!1! 
Les cartes sont représentées ainsi:valet=J:dame=Q 
roi=K:as=ÀA 
Après l'affichage de sa main,on peut d=mander à 
changer jusqu'à quatre autres cartes.En partant de 
la gauche de l'écran,on décide de changer la premiè 
re,la deuxième...etc carte.Ill duffit de taper son 
numero d'ordre.si plusieurs cartes sont désirées,on 
tape leur n° à la suite,l'ordre n'importe pas.Mais 
attention,on ne peut changer le s cinqisi le jeu nous 
convient taper #.Si l'on se trompe avant d'appuyer s 
sur 2/5, faire B.Si notre demande est incorrecte,la 
machine nous montre à nouveau les cartes. 
Pour le jeu proposé,cha,geons les cartes 1,2,3 et 4 
et ?/S.Le message +++RIGHT+++ clignote autant de fois 
que de cartes demandées et apparait (DEALING)-mélange 
La nouvelle main s'affiche,elle est définitivel Heu- 
reusement nous gagnons avec 3 Dix,un brelan de 10.La 
machine nous pose alors la question:RAISE?-voulez- 
vous surenchérir?Si non,appuyer sur R/S,si oui,taper 
le montant supplémentaire de 1! enjeul(limité à sa bank 
Jet R/S;au choix,on gagne-#lN-on perd-LOST.Reprendre 
le jeu au point 3 etc...Lorsque vous perdez,cela ar 
rivelune surprise vous attend.Mais comme vous avez ta 
pé le programme,vous savez pourquoill! 
ps;en cas de difficulté,téléphonez moi. 


Description du programne: 


RE;distribution des cartes 

A;affichage de la main 

WI;calcul des gains suivant la main. 

RE;Lignes 01-43,distribution aléatoire ds cartes de 
Valeur 1£x£52: comparaison avec les tirages précédents 
Dix cartes de valeur différente sont ainsi ventilées 
dans les registres 21 à 30.Lianes 44 à 60:les valeurs 
des 5 premières cartessont stockées dans les registres 
1 à 5.Le pointeur est ensuite dirigé vers la ligne 144 
pour le calcul et la constitution des cartes alpha. 
Lignes60 à £2:le montant du pari est comparé avec ce 
lui d* la banque et défalqué.Lignes 83 à l{43:controle 
si le nombre de cartes demandées est inférieure à 5 
et si leur numéro d'ordre ne dépasse pas 5.Constitu 
tion d-s cartes demandées et dirigé vers ‘il 

Lignes 144 à 25l:Constitution de la valeur réelledes 
cartes comprise entre 1 et 13.Le label 05 est extra 
puisque tiré du programme de “orman J. Gordon"POKER* 
Suivant la valeur de la carte et sa couleur ,la carte 
alpha est stockée dans les registres 16 à 20 

AW; Simple routine pour faire apparaitre à l'écran les 
cartes.J'ai préféré isoler cette routine commune aux 
deux programmes RE et ‘I afin-je pense- de aagner du 
temps et de la place. 


Frédéric Darin (9119 T6) 


PRET Ne: 


NOVEMBRE DECEMBRE 
1982; P3: 





I1;C'est la partie qui m'a demandé le plus de mall!! 
Le. programme de Gordon est plus astucieux, mais j'en 
ai eu connaissance après avoir presque achevé le mien 
Alors tant pis,ça marche... 

Les registres 21 à 30 sont vidés(LBLe)Les registres 
21 à 30 sont alors réservés à chaque type d- cartes. 
ex:le registre 33 correspond aux rois.Suivant les 
cartes de la main,ces registres sont crédités de 2 

ou 3 si l'on a une paire ou un brelan.Le LBL O3 trai 
te les paires-le flag08 est armé.Le LBL O5 les fulls 
flag -le LBL 06 les carrés, le brelan étant inclus 
dans le LBL a-flaco0?armé.Si aucun de ces arrangements 
n'est trouvé,le programme saute au 1BL O7 pour voir 
s'il n'y aurait pas une suite;La somme"S" des valeurs 
des cartes stockéesdans les reg 1 à 5 est-elle divis 
sible par 5?Si non,est-elle égale à 47?si oui,le "P" 
produit des cartes doit être éqal 17160 pour que l'on 
ait une suite.Si S/5=3 et P=120..suitelEnfin est cal- 
culé: :FACT(S/5+2)/FACT(S/5-3) ,car si c'est égal à P, 
Suite! N'étant pas matheux de profession ni d'expéri 
ence, je n'ai trouvé que cette formule boiteuse.si 
quelqu! un en connait une,qu'il me la montre,ça m'inte 
resse...Qu'il y ait ou non une suite,le programme vé 
rifie la couleur au LBL 15.Cette routine rapide est 
aussi tirée du programme de Gordon.Lorsqu'il y a cou 
leur ,le flag 05 est armé.L'ensemble des résultats 
suivant la recherche d'une main gagnante ‘et sa 
détermination fait aboutir le programme au LBL12 où 
tout est remis en jeuiDes lignes 205 à 247 est décidé 
si en cas de surenchère les gains sont augmentés.Le 
décision est due au hasard puisque la semence conten 
nue dans ROO à ce moment du jeu est multipliée par 
1C0.5i sa partie entière est paire,on caqne!Sinon... 
Le programme vide ses registres inutiles pour ne 
Conserver que la valeur de la banque et la semence 
(LBL 16)pour se diriger ensuite vers 2£ et recommene- 
cer un tour.Le L3L PR sert à débuter une partie. 


Resistres: 
OC; Senence 
O1 à 05: valeur &d s cartes du tour entre 1 et 13 
06:Pointeur 
O07;:Pari(Bet) 
C8: Banque 
09 et 10:pointeurs 
11 à 15;:couleurs de la main 
16 à 20:cartes alpha 
21à 33:valeur des cartes 
1 et 13 (dans “I) 
34;poinèeèeur cartes alpha 
35;:pointeur couleurs 
Flags;CO;utilisé dans RE lors de tirage de cartes 
supérieures à 10 
O5S;armé lors d'une couleur 
06;arné en cas de surenchère çagnante 
07;:brelan 
O8:armé si paire 


entre l et 52 puis entre 


139 X2Y? 
148 GTO b 
141 XEQ 15 
142 FC2C 85 
143 GTO 14 
144 “cecHIHNERcec" 
145 AVIEN 
146 BEEP 
147 KEQ “Ay° 
148 588 
149 GTO 12 


3S GT0 12 185 2 

186 + 

187 FACT 
188 LASTX 
189 5 
118 - 

111 FACT 
112 7 

113 XEQ 18 
114 X=Y? 
115 GTO 13 


DLLBL "HI" 
CDEALIHG) * 
83 AYIEN 36+LBL 88 
84 21,83 372 

85 , 38 x=Y? 
39 GTO 83 
44 XOY 
413 

42 x=Y? 
43 GTO 84 
44 XOY 
454 

46 x=Y? 
47 GTO 86 
48 GTO à 


63+LBL 85 
78 TOKE 7 
71 TOKE 7 
72 TOKE 7 
73 XEQ “AW* 
74 18 

7S GTO 12 


82 - 


B6+LBL e 
87 TOKE 8 
88 STO IND *: 
89 ISG Y 
18 GT0 e 
11 1,885 
12 STO 18 
13 CLA 


76#LBL 86 
77 BEEP 

78 XEQ “AW° 
79 25 


88 GTO 12 158eLBL 18 


191 RCL 81 
192 RCL 82 
153 RCL 83 
154 + 

155 + 

156 RCL 84 
157 REL 85 


123L8L 11 158 * 
124 kEQ “au” 159 * 
125 GTO 16 168 RTH 


116eLBL b 
117 KEQ 15 
118 FC2C 85 
119 GTO 11 
128 KEQ “AN* 
121 8 

122 GTO 12 


81eLBL 87 
82 RCL 81 
83 RCL 42 
84 RCL 83 
85 + 

86 + 

37 RCL 84 
88 RCL 85 
39 + 

98 + 

31 ENTER 
92 ENTERT 
93 5 

94 HOD 

35 x#8? 
96 GT0 49 
97 RDH 

98 5 

39 / 

188 3 
181°x=Y? 
182 GTO 88 
183 xCY 
184 ENTERT 


L4eLBL 41 
15 RCL IHD 18 
16 28 58 FS2C 47 
17 + 51 GTO 85 
81 52 FS2C 88 
19 ST+ IHDY 53 CTO 82 
28 ISG 18 54 SF 88 
21 GTO 81 55 TOKE 7 
22 21,934 56 TOKE 7 
23 ST0 18 57 CTO à 


43eLBL 83 


126eLBL 48 161L8L 13 
127 KEO 18 162 KEQ 15 
128 128 163 FC2C 45 
129 #=Y? 164 GTO 14 
138 GTO 13 165 TOHE 9 
131 GTO b 166 TOHE 9 
167 XEQ “AH” 
168 50 

169 GTO 12 


S8+LBL 82 
59 TONE 7 
58 TOKE 7 
61 XEQ “AW” 
622 

63 GTO 12 


244BL à 

25 RCL IND {A 
26 I5G 18 
27 GTO #8 
28 FC?C 87 
29 GTO 87 
38 TOME 7 
31 TOKE 7 
32 TOME 7 
33 XEQ “A” 
343 


1324LBL 89 
133 RDH 
134 47 
135 X2Ÿ? 
136 GTO b 
137 XEQ 18 
138 17168 


64 BL 84 
65 FS2C 88 
66 GTO 85 
67 SF 87 
; 63 GTO à 


1784BL 14 
171 TOME S 
172 TOME 4 
173 TOKE 3 
174 TOHE 2 


219 “HO MONEY..." 


228 AVIEN 
221 TOKE 8 
222 TOKE 1 
223 GT0 12 


173 TON 1 
176 XEQ “AW” 
177 4 

178 GTO 12 
2244 BL 17 
225 ST- 88 
226 ST+ 87 


179481 15 
188 RCL 11 
181 RCL 12 
182 RCL 13 
183 18 
184 + 

135 + 

186 XCY 
187 E2 
188 + 
189+ 
198 RCL 14 
19t RCL 15 
192 E3 
193 + 

194 XCY 
195 E4 
196 + 

197 + 

198 + 

199 11111 
288 / 

281 FRC 
262 x=4? 
283 SF 85 
284 RTH 


241 CTO 16 


242eLBL 88 
243 RCL 81 
244 RCL 67 
245 + 

246 ST+ 88 
47 GTO 16 


249 , 


26S48L 12 258 STO 87 


286 STO 81 
287 CF 2 
288 PSE 

289 *  RAISE?" 
218 PRONPT 
11 FC? 22 
212 KEQ “(M 
213 FC? 22 
214 GTO 88 
215 RCL 88 
216 XOY 
217 KÇ=Y? 
218 GTO 17 


252 PROMPT 
253 SQRT 
254 Ed 
255 / 
256 STO 88 
257 * 
258 PROMPT 
259 k=8? 


261 STO 88 
262 SORT 
263 1/*X 
264 ST+ 88 


66 GTO 14 
67 XOY 
68 18 

69 xcY? 
78 GTO 14 
71 XOY 
72 K«=8? 
73 CTU 14 
74 ST0 47 
75 ST- 88 
76 CLA 


118 GTO “HI 
111 El 
112 / 
113 INT 
114 STO 86 
115 LASTX 
116 FRC 
117 El 
118 s 
119 5 
128 KCY? 
mar ne 
78 REQ “AM" 123 cpRICHT#++e 
79 STOP 124 AVIEN 
125 STO 18 
126 18 
127 + 
128 STO 35 
129 5 
138 + 
131 STO 34 
1R El 
133 + 
134 STO 89 
135 RCL INB 99 
136 STO IND 19 
137 XEQ 15 
138 GTO € 


84 CTO “We 


4 EXTERT 
95 ENTER 
6 18 

97 HO 
98 5 

39 xCY? 
188 GTO 8 
181 RDH 
182 - 

183 18 
184 / 

185 DSE Ÿ 
186 GTO 17 


133L8L 88 
148 1,885 
141 STO 18 
142 16,82 
143 STO 34 
144 11,815 
145 STO 35 


146eLBL 89 
147 RCL ID 18 
148 XEQ 15 
149 1SG 18 

158 ** 
151 ISG 34 
152 °° 
193 ISG 35 
154 GTO 893 


187eLBL C 
188 RCL 86 
189 x=97 


248eLBL “PR° 


251 “-HASCOTTE ?-° 


BANK ?" 


‘268 GTO “PR° 


265 * MUCH THAHKS" 
266 AVIEN 


267eL8L 16 
268 CF 88 
269 CLST 
278 RCL 88 
271 X=8? 
272 GT0 d 
273 RCL 88 
274 CLRG 
275 STO 88 
276 RDN 
277 STO 88 
278 GTO "RE" 


27#4BL d 
288 SF 11 
281 OFF 

282 GTO d 
283 .ENB. 


BLeLBL "RE" 
62 21,83 


83 STO 99 45 STO 18 


46 21,825 


@deLBL à 47 STO 89 


85 XEQ 18 
8 STO IND 89 
87 RCL 89 

88 INT 
89 ,82 
18 + 

11 STO 86 


48e+LBL 86 
49 RCL IND 89 
Se STO INB 18 


8 
3 


ED 04 0 
38 


124BL 84 
13 DSE @ 
14 GTO 85 
15 GTO 87 


segsäguge 
s2 
ü 


# 
wo 8 


16+LBL,18 
17 TOHE 9 
18 RCL 88 
19 9821 
28 + 

21 ,211327 
2 + 


a 

_ 
e 

# 
a 


| BTE 
SRE 
1 


155 RTX :  1SSLBL 82 248LBL 28 
| 286 CLA 241 SF 88 
| 21 STO IND18 : 242 “Hi 
202 3 Ÿ 243 RTX 
283 STO IHB 35 
284 RIM 
285 XE0 16 
286 FC2C 88 
287 AREL X 
288 He," 
289 ASTO IHB 34 
218 RTH 


1S6eL8L 15 
157 ENTER 
158 ENTER? 
159 13 

168 M0 

161 X=87 
162 SF 85 
163 KOY 

164 LASTX 
165 / 

166 INT 

167 RD 

168 FC 85 
169 GTO INDT 
178 XL 
IL 1 

172 - 

173 13 

174 GTO IND Ÿ 


244BL 11 
245 *+J" 
246 .EKD. 


2tteLsl 83 
212 CLA 

213 STO IND 18 
214 4 

215 STO [NB 35 
216 RBH 
217 XEQ 16 
218 FC2C 88 
219 ARCL K 
228 ‘+e,° 

221 ASTO IND 34 
222 RTN 


81eLBL “AN” 


175eLBL 88 
82 TOHE 2 


176 CLA 

172 STO IHB 18 
178 1 

179 STO [HD 35 
188 RD 
181 XEQ 16 
182 FC?C 88 
183 ARCL X 
184 +4," 

185 ASTO IND 34 
186 RTN 


223H48L 16 
224 E 
225 X=Ÿ? 
226 GTO 29 
227 KOY 
228 El 
229 KOY 
238 X(=Ÿ? 
231 RTH 
232 SF 88 
233 GTO [HD X 


sIaSeRSre 
22222 
SBABRRS 
8337% 


B 


187+L8L 81 
188 CLA 

189 STO IND 18 . 
198 2 

191 STO INB 35 
192 RDX 
193 KEQ 16 
194 FC?C 88 
195 ARCL X 
196 “+4, 

197 ASTO INB 34 
198 RTH 


2HABL 13 
235 "H° 
236 RTH 
2374BL 12 


238 “+” 
239 RTH 





BASES 


Ce programme est une traduction d'un programme publié | 
dans "L'Ordinateur de Poche" n°5, plh8, à l'usage des Î 
machines Texas. Bien amélioré, évidemment. | 
L'idée de base est intéressante: Il s'agit de repren- 

dre le programme d'exercices de calcul du manuel d'ap- 
plication standard de la HP-L1C en y ajoutant cette 
caractéristique supplémentaire de fonctionner dans 

toutes les bases numériques de 2 à 10. Calculer 2+2 

en base 3 n'est déja pas si évident (=11), il a paru 

inutile de prévoir la division! 

Tel qu'il est ici, le programme présente plusieurs 
caractéristiques intéressantes: lors du choix du type 
d'opération (+-x) il n'est pas nécessaire de faire 

shift, la machine s'en est chargé.De même il n'est 

pas nécessaire, contrairement à l'original de limi- 

ter la force du jeu en fonction de la base, cette 1li- 

mitation est automatique. Je ne suis pas sur qu'en 

poussant dans les coins on ne pourrait pas mettre en 

défaut cette partie du programme, mais à moins de fai- 

re les calculs avec une HP 16C cela me parait diffi- 

cile. ° 

Analyse ligne par ligne du programme: 


1-07 Initialisation 

8-11 graine du générateur de nombre aléatoire 

12-14 base dans laquelle se feront les calculs 
(de 2 à 10) 

15-21 niveau ( de 1 à 9) pondéré en fonction de la 
base pour éviter les overflow : 

22-29 Choix du type d'opérations ( 

30-32 arme FOO si -,FO01 si +,F02 si «x 

LBL A 

33-35 initialisation 

LBL D 

36-38 valeur d'essai nl 

39-140 valeur en base b de nl 

L1-L2 valeur d'essai n2 

L3-L7 opération 

L8-L9 n2 en base b 

50-52 résultat base b 

53-55 question nl + n2= (par exemple) 

56-57 test 

59-62 Oui 

63-6k incrémente le score 

65 va ligne 76 

LBL 03 

66-68 en cas d'erreur enléve 1 point au score! 

69-75 donne la réponse 

LBL 07 

76-81 affiche le score et passe à la question sui- 
vante 

LBL O1 

82-86 tirage d'un nombre aléatoire 

87-95 valeur d'essai pondérée selon la base et l'o- 
pération 

LBL 02 

97-99 controle pour l'opération MOD de la ligne 109 

100-104 préparation de la boucle 


LBL Ok { 


106-126 changement de la base 10 dans la base choi- 
sie (peut ètre remplacé par BD du PPC ROM) 

LBL O5 

127-110 affichage de la question 

LBL 06 

142-156 allume le shift. Peut ètre remplaçé par 7, 
XROM"IF" si vous avez le PPC ROM 

157-165 mise en place des flags en fonction de l'o- 


pération. 


LBL 3 Début général. L'heure demandée sert à intro- 
duire un générateur de nombres aléatoires, n'importe 
quel décimal fait l'affaire. 

La base est la base numérique( de 2 à 1 
le se fera le calcul. Le niveau est à peu prés le nom- 
bre maximum de chiffres du résultat, il est pondéré 

seion la base pour ne pas dépasser la capacité de l'é- 
cran. Noter que le niveau 1 est trés facile, mais que 

le niveau 3 est déja trés difficile. 

LBL 07 : demande le type d'opération désirée. Le sous 
programme 06 est le programme SHIFT déja publié, il 

arme pour vous la touche shift, donc appuyer unique- 
ment sur la touche x,+ ou -. Toute autre réponse est 
refusée. Le PPC ROM montre ici sa puissance, puisque 

les heureux possesseurs du ROM peuvent remplacer le 
programme 06 par b7T,XEQ"IF". 

Les possesseurs du module X-fonctions peuvent aussi 
utiliser pour le choix de l'opération ATOX,L2,-,SF | 


10) dans laquel- 


IND X . Il faut alors modifier les flags utilisés plus 


loin, ce qui est facile. 


PPC-T N,.2., 


NOVEMBRE DECEMBRE 


19382 P4. 


LBL A : 


Une nouvelle partie avec 


Tbase et niveau) 


LBL D: Boucle principale/ le RDN 
Si vous le supprimez il 


portant. 


ligne 


pour avoir la réponse juste! 


SIZE 008 : 


GI 
R8i=H{(b) 
R92=HIVEAU 
RAJ=BASE b 
R84=SC0RE 
RAS=N2(b} 
RA6=K18tb) 
Re7=N1<18> 


g1+iBL “BASES” 
82+LBL 8 
83 CF 21 
84 CF 85 
85 CF 94 
86 CF BI 
87 CF 82 


317 octets 


38 STO 87 
39 KEQ 82 
48 STO 81 
41 KEQ 81 
42 FS? 08 
43 ST- 87 
44 FS? 81 
45 ST+ 87 
46 F5? 92 
47 STs 87 
48 kEQ 02 
49 STO 85 
58 RCL 87 
Si REQ &2 7 
S2 STO 87 


les mêmes données 


53 est im- 


suffit de faire R/S 


50 registres au total 


8 
8 


ERLESSSRASE 
S 3"2RSITE 
F4 . 2 ans 

R RAE 


ä € 
2 = 
2 


1274LBL 85 
128 CLA 
129 FIX 8 
138 CF 29 
131 ARCL 81 
132 FS? 38 
133 *+-° 
134 F5? 81 
135 *++* 
136 FS? 82 
137 “+# 
138 ARCL 85 
139 *+=" 
149 RTH 


programmes Coupes Lamy (T3) 


Les poteries vendent des coupes par palettes entières : 


la même taille 
et le nêne colori 


on fournisseur peut sur une même palette loger des coupes de 
tailles ou de coloris différents. 


ais je dois calculer : 


le nombre üe palette que je livrerai parce que le client paie u: 
forfait de port par palette, que celle-ci soit pleine ou non, 
donc j'ai intérèt à conseiller au client de comclèter sa palette. 


d'autre part il y a aussi 


sont les pas : 


une remise quantitative par coupes, ce 


24=100 - 33=200 - 42=500 - 51=1.000 - 60=1.999 - 6922,000 Coupes 
puis les remises selon ces commandes aux pas suivants : 


27=6% — 36=5+-6% - 45=20+0% - 54=14+67, - 63=17+6% - 72=-20+8% 


les cniffres que j'ai affichés à coté de ces renises correspondent 
au coéfficients qui figure sur la facture. 


Il ne faut déterminer lorsque le client m'a passé sa commande, le 


88 “HEURE, NS?" 53 RH J6eLBL 82 montant de sa facture, et de lui faire connaitre la remise qu'il 
89 PROMPT 54 KEQ 95 97 x«8? L4LLBL 46 aura, montant qui le dédommagera des frais de port. 
18 FRE 35 PROMPT su SE es 142 KO d C'est pourquoi au pas 
11 STG # 56 RCL 87 39 ABS 143 XO 
{2 “BASE? 57 Xev? 188 STO 46 144 “tete 214 , j'ai mentionné ‘:2/ART 1 = 3 -5 
13 PRONPT 58 GT0 83 81 € 145XO TL ce qui me permet de déterminer pour chaque catégorie, le nombre 
14 STO 83 59 “OUI * 182 ENTER 146 XO d d'articles commandés qui détermine la tranche de remise 
15 *HIVEAU?" 68 ARCL 87 183 CLX 142 SF 67 
16 PROMPT 61 AVIEN 184 ENTERT 148 *O d 237 : ARCL O1 pour les Coupes 
17 Ei 62 BEEP 241 : ARCL 03 pour les Divers 
18 / 53 € 1854LBL 44 143 XO TL 245 : pour les articles sans remises 


19 RCL 43 
28 * 
21 STO 82 


22#LBL 47 
23 °s,+,-7* 
24 AON 

25 KEQ 36 
26 STOP 

27 ASTO x 
28 AOFF 

29 SF 25 

34 XEQ IND * 
31 FCXC 25 
32 GTO 87 


64 ST+ 84 
63 GTO 87 


66eLBL 83 
67 E 

68 ST- 84 
69 RD 

78 XEQ 85 
71 ARCL 
72 AYIEN 
73 TOKE ! 
74 TOHE ! 
75 PSE 


76+LBL 87 


196 RDN 
187 RCL 86 
188 RCL 93 
189 MOD 
118 RCL Z 
Hi + 

112 + 

15 El 
114 STs 2 
115 RD 
116 RCL 86 
117 RCL 83 
118 / 

119 INT 
128 STO 86 


158 *++e" 
151 RCD \ 
152 XC) d 
153 XO \ 
154 CLA 

155 XQ 
156 RTH 


157eLBL *-" 
158 SF 88 
159 RTN 


168eLBL “+” 
161 SF 81 
162 RTH 


Je n'ai pas eu le temps de complèter les remises jes articles 
ARCL 03 


Ces trois articles sont mentionnés aux pas suivants : 


06 : CO/1-P/13-D/18 
CO/1 = Coupes GTO O1 
cette boucle se déclanche automatiquement sarce que le LBL 01 
suit ce progranme 
93 : CO/1-P/13 - D/18 
Je demande GT9O 13, 
et je suis dans cette seconde catésorie 
n'ayant pas introduit les remises quantitatives, 
je n'ai rappelé le RCL 03 
remise unique de 8% 


rappel des GTO 


127 : CO/1-P/13-D/18 
77 CLA 121 X#87 163eLBL “+ : 2 . u 
TILL À 78 ARCL 84 122 CTO 84 He c'est la catégorie des pots sans remise sauf 6% 1 
# 79 “+ PTS 123 RDK 165 .EXD. Au pas 164 
35 STO 84 88 AYIEN 124 FS2C 85 j'ai fait un sous-programme qui me permet de déterminer pour 


364 8L 1 
37 REQ 81 


PROGRAMME 


81 GT0 D 


82+LBL 81 


MPAGE": 


125 CHS 
126 RTN 





Ce programme est celui que j'utilise pour 
faire la pagination du journal ainsi que le pavé 


dans le titre. 


chaque catégorie le pourcentage de coupes commandées, par exemple 
500, 
en fonction du nombre de cette même catégorie de coupes £gar 1.500 
si le client me commandait une palette entière, 
au pas 177, j'ai ce pourcentage 
au pas 180, j'additionne les pourcentages 

afin de connaitre le nonbre ce palettes à expédier. 


Puis en fin de programme je donne 








A 
Analyse: au pas 259 le montant de la facture sans re 
01-22 Entrée des données: numéro du journal, les au pas 269 le montant de toutes les remises 


noms des deux mois, 


le nombre 


de pages 


au pas 279 le montant GLOBAL de la facture 


23-L2 En-téte du journal (première page) 

Lol 02 Boucle des pages 

3-67 Inpression des bas de page LÉLERL 

Lbl 01 CLST GTO 92 
69-85 Justification, centrage LBL 


Nécessite sous la forme actuelle le module X-Fonctions 


et bien 


ALeLBL “PAGE 
82 ADY 

83 AD 

84 CF 21 

85 “HUMERO ?* 
86 PROMPT 

87 STO 88 

88 “MOIS 1 ?- 
89 RON 

18 PROMPT 

11 ASTO 81 

12 ASHF 

13 ASTO 82 

14 “MOIS 2 ?° 
15 PROMPT 

16 ASTO 83 

17 ASHF 

18 ASTO 84 

19 AOFF 

28 “Nb PAGES 7- 
21 PROMPT 


sur l'imprimante. 


22 STO 85 

23 5F 21 

&4 ® N° 
25 FIX @ 

26 ARCL 88 
2? SF 12 

28 PRA 

29 AW 

38 CLA 

31 ARCL 81 

32 ARCL 82 

33 KEQ &i 

34 CLA 

35 ARCL 83 

36 ARCL 84 

37 XEQ 81 

#3 1982" 
39 PRA 
49 ABY 
at” 
42 PRA 


P PC 


4 AY 


43 “PPC-T N © 


46 ARCL 88 
47 PRA 

48 CF 12 
49 CLA 

5e ARCL 81 
S1 ARCL 82 
Seth 

53 ARCL 83 
54 ARCL 84 
55 18 

56 ALEXG 
57 - 

58 2 

59 

68 INT 

61 XEQ 88 
62 SF 12 
63 "1982 P° 
64 ARCL 85 





65 PRA 
66 DSE 85 
67 GT0 82 
68 RTH 
S9eLBL 81 
78 9 

71 ALENG 
Tè= 

732 

F4 / 

F5 INT 
76eLBL 88 
77 x=0? 
78 PRA 

79 x=8? 
88 RTH 

8 “+” 
ge -1 

83 AROT 
84 + 

85 GTO 88 





SE'r21 
XEG 10 
co/1-P/13-D/18 


PCL « 
500 


PROMPT PT. 


-3-6% 13.52 
AVIE“W 

.5648 

GTO 53 

LBL 95 

RCL 91 

1.900 

X+Pt = Y7? 


GTO 06 


70 -14-6% 19.1€ 


-5-6% 10. 


AVIEW AVIEW 


PPC-T Ne. 
HOVEMBRE DECEMBRE 
1982 PS. 








56 .8084 TR = AVTES 
118 ARCL X 180 I- NB PAL = 242 AVIEK 20 ETO 14 73 370 11 142 X + Gd Y ? 
57 GTO 03 119 I-F 181 ARCL 00 243 RCL 03 ST HÈTES =: | 
1 HB/CAR/CDE= 50 PCIDS= 143 GTO 13 
58 LBL 06 120 AVIEW 182 AVIEW 244 ART SS 4 = 22 aRCL x ds MEL 
- K 
59 RCL O1 121 STO 14 183 CDE = 245 ARCL 05 23 1- es re 
; nu 4 
60 1.999 122 ST + 10 184 ARCL 18 246 AVIEW da SES nee 145 GTO 05 
ñn Le < 4 f 
61 X+PtY? 123 RCL 07 185 AVIEY - 247 RCL 05 È FA 6e 
235 STO 13 84 10 K 147 100 K 
62 GTO 07 124 RCL 14 186 TONE 2 248 RTH ee ? 
26 COMPTEUR 35 échange X ÿY 148 RCL 11 
63 -17-6% 21.98 125 - 187 TONE 3 249 LBL 14 à Re 
ni Boucle controiée 36 # ? 14 
64  AVIEU 126 STO + 19 188 FIX O 250 RCL 16 44,05910 FARRERNS D KE 
FN FRE 1273 c0/-n/x8n7te 189 EE RL? 251 COUPE ce =  Caleui/é4 cartons à For à 
maxi 50 cartons 88 RCL 15 151 RCL 24 
66 GTO 03 190 I- 252 ARCL X £ 
122 Prompt comptage éventuel 39 GTO 05 : 
Fe PRO 129 GTO 12 191 ARCL 12 253 AVIEW par 10 FRS 
LSL O4 : 
68 RCL O1 9 E 254 RCL 04 220! = 153 LBL 14 
130 LBL 18 192 I-/ 27 PROMPT dt -50 
69 2.000 jan: Ses 28 193 ARCL 06 255 RCL 09 23 STO 08 a Ïs4 AQU 
x = 
70 X + Gd Y ? 132 AON . 194 FIX 2 256 + 29 LBL 17 à EE 155 RCL 11 
71  GTO 08 133 FIX 0 195 PROMPT 257 RCL 15 30 RCL 08 p ue © 156 X + Gd Y ? 
F 4 G = 
72  -20-6% 24.80 134 prvers DIau ? 196 RCL 18 258 + 31 INT ce 157 GTO 15 
73 AVIEW 137 T- 197 + 259 TOTAL SS % = 32 STO 14 Fo 158 RCL 11 
96 GTO 05 
74 ,752 138 ARCL 12 198 STO 07 260 ARCL X 33 LäL 18 ne ae 159 à 
2 N 27 LBL 160 
75  GTO 03 137 I-/ 199 RTN 261 I-F 34 FIX O g 
| 8 30K 161 IAT 
76 LL 08 138 ARCL 06 200 LEL 09 ae a 35 KB/CARTON= 99 RCL 11 162 1 
77  LBL 03 132 PROMPT 201 RCL 12 263 STO 17 36 ARCL 14 NE ou 
: 1C0O X + Gd Y 
78  STO 12 A RSEE 202 1 264 RCL 19 37  AVIEM : Re 
101 GTO 07 164 RCL 25 
79 RCL 97 141 CLA 203 + 265 RCL 21 38 RCL 14 
102 RCL 17 165 * 
20 « 142 FIX 2 204 STO 12 266 + 39 RCL 12 … é 
. 1 TO O 166 GT9 05 
31 Px + COUPE= 143 XEO 00 205 RCL 20 267 RCL 24 40 VIEW 12 : À 5 ; 
104 LBL LBL 15 
82 ARCL X 144 RCL 07 206 X = Y ? 268 + 41 + 167 LBL 1 
L | : 105 40 K 168 3.000 K 
83 L-F Ses dé 207 &TO 14 .269 REMISE/C+P+D= 42 STO 09 re 
/ 106 RCL 1 169 FCL 11 
£4  AVIEX 146 + 208 RTN 270 ARCL X 43 NBPIECE = y x, cd v ? : : 
c 0 + ? 170 X + Gd Y ? 
35 STO 02 147 STO 15 209 LBL 10 271 I-F 44 ARCL X 
— e 108 GTO 08 171 GTO 16 
26 STO + 11 a Met de 210 nB/aRT= % 272 AVIEW 45 I- : 
Se 109 RCL 18 172 RCL 11 
87 RCL 07 ide 0 211 AVIEW 273 STO 08 46  AVIEK - 
| 110 GTO 05 73 10 205 + 
e8 RCL 02 150 + 212 LBL 11 274 RCL 11 47 FIX 2 ; à 
111 LBL 08 174 06 Px HT % = 
äd. = a 213 FIXO 275 RCL 10 48 RCL 02 ne ” F 
5 Fe ° 112 50 175 INT ARCL X 
30 ST + 21 Res MnuEes 214 NB/ART/1-3-5 276 + 42 echange x Y =: pc 
13 RCL 11 176 1 208 I-F 
91 RCL. 18 153 1-F 215 PROMPT 277 RCL 23 50 X + Gd Y ? ° 
92 ST +16 Sas 216 STO 02 SET D EU 114 X + Gd Y ? 177 + 209 AVIEW 
; = 115 GTO 09 178 RCL 26 210 1.176 
23 CO/1-P/13-D/18,< ro 22 217 X=0 ? 279 GLOBAL = 52 RCL 03 
94 PROMPT HSE 54 218 GTO 12 280 ARCL X 53 GTO 02 116 RCL 19 179; = 211 * 
> + L 
Es 117 GTO 05 180 GTO 05 212 ADV 
25 GTO 21 er Tai 07 219 CDE 281 1-F S4 LBL O1 
96 LSL 13 Ne 220 PROMPT 282 AVIEW SE RCuo 118 LBL 09 181 L8L 16 213 SF 12 
37 XEG 09 ee 221 RCL IND O2 283 STop BE DEL dé 119 60 K 182 LBL O5 214 Px % TTC = 
5 ni “ L 83 PORT = 215 ; 
98 FIX O0 Tr 222 + 284 EN 57 X+GdY? 20 RCL 11 183 POR ARCL X 
29 AC Pnau 223 STO IND O2 x  % se Hess es 121 X + Gd Y ? 184 ARCL X 216 I-F 
_p/13-0/ 5 c 9 
 otas 5 122 G 185 I-F 217 AVIS! 
100 PCT CIA“ 7? 162 PROMPT 224 RCL C6 O1 GoDET 59 RCL 05 € TO 10 i IEY 
L 123 RCL 20 186 AVIEW 219 CF 12 
191 I demo te 225 1 02 CF 27 60 GTO 02 É ‘ 
; Le es 124 GTO 05 187 PSE 219 ADV 
102 aARCL 12 164 LEL 00 226 + 03 SF 21 61 L8L 93 
2 125 LBL 10 188 RCL 10 220 ISG 08 
103 I-/ 165 2FEP 227 STO 06 04 CLST 62 ACL 06 
in RES HRÈGT E 126 70 K 1E9 Px Dep= 221 GTO 17 
104‘ ARCL 06 usé Pope 228 NB/LOT = DS of EL 7 
105 PROMPT ds écuse 230 ARCL X 56 esp > 64 FIX 4 127 RCL 11 190 ARCL X 222 END 
106 AFF en AE 231 AVIEW br: pRouES 25 ?x UN Sépart 128 X + üd Y ? 191 IF 
107 CLA Ace ee à 231 L QUE E6 ARCL * 129 GTO 11 STATE 
1c8 FIX 170 CDE = 2e à 09 jB/PIECE/CARe 07 À es Ste 
ice XEC 00 171 PROMPT 233 STO 20 jo. SAGuPT 6e AVIEX 131 GTO OS 194: + 
119 ACL 07 ire RG A 234 GTO 01 SEVRES 69 FIX 2 i32 L8L 11 195 ve 
111 ACL 09 dan 235 LBL 12 12 cpez 7œ * 153 20 X F6; «+ 
112 + jé à 236 COUPE CDE = 13 opc:pT 71 STO 10 134 RCL 11 197 ?Px Franco 
113 STO 09 nr 237 ARCL O1 : L 35 gs te JS. AE PIE FESSES 
175 X échange Y i4 STO 00 
114 ACL 07 — 238 AVIEW ir. Gor $e 73 ARCL 07 19e" GrONte les: A 
115 .94 ot SUBAC Se 239 RCL O1 120 à 74 < 137 ACL 22 290 ANEY 
116 * Se AS 240 DIVERS = 7 vur > 13€ GTO 25 ON PSE 
117 PX/P#= as 06 241 ARCL 03 jé 76 CL 57 139 £BL 12 202 2CL CS 
ré 77 RCE :< 140 90 & 203 
FE * 141 RCL 11 224 100 


PPE=T N 25 
NOVEMBRE DECENSRE 
1982 P6. 





Programme GODET 


je travaille avec une maison de province qui me donne des prix départ. 


Les condtionnements ne sont jamais identiques et c'est en rentrant chez moi que je me suis aperçu de la supercherie. 

] i ' i i i variaole. : ; : s > 5 

poids d'un En Fe SR. est var J'ai acheté le magneto-cassette à la FHAC - Etoiles 

ies remises quantitatives varien 2. et pendant res vacances, j'ai tenté de me servir des cassettes sans 
soit suivant le nombre de pièces résultats 


soit suivant le nombre de carton 
En rentrant de vacances, je me suis présenté à la FMAC Etoile, un jour 


: À é 
cedernien problène niescpas insoiubte de faible affluence, et le.vendeur m'a envoyé sur les roses. 

car en connaissant le nombre de pièces par emballage 

on peut connaitre la remise suivant les quantités La HP avec ses accessoires coutent une petite fortune, et il serait 


logique que les vendeurs vous aident un peu. 
j'ai donc fait un programme GODET É 4 F 
C'est pourquoi j'ai suivi les cours à INTERLUDE 


avec les variables suivantes : “ais l'apprentissage du sagneto n'est pas prévu à la lère cession. 
les pas 09 à 46 J'ai tenté de vous expli è 
= : J uer ce programm nes problèmes. 
J'entre d'une part le nombre de pièces par emballage CAR }) ” BEA programme et mes p 
ex : 2.300 pièces - pas © 5 : . (T3) 
Puis-au pas 12 le nonore de pièces commandées par le client Pierre Leny 
100.000 F É IT y avait des explications à coté du pro- 
sans me soucier de la correspondance avec la quantité de pièces ÿGramme , que je n'at pu reproduire faute de place, 
par emoallage J'éspére que vous pourrez vous débrouiller quand mê- 
au pas 21 - je controle le nombre d'emballage ou cartons me. 


ÎT est vrai qu'il n'est pas facile à un néo- 
phyte d'apprendre l'usage de certains accessotres, 
Jusque dans leurs fonctions élémentaires. C'est pour- 
quot un club comme Le notre est important. C'est aus- 
st pourquot il est important de pouvoir se rencontrer, 
une démonstration valant tous les articles. 

Pour placer sur une même carte magnétique 


au pas 2% j'utilise une toucle controlée en fonction de la 
révonse précedente 
pour «44 cartons, j'entre 44.05010 

pour 50.000 Objets = 22 cartons - 22.05019 
au pas 39, je controle mon nombre de pièces par emballage de 
2.3C0 pièces — RCL 12 


Par un controle au pas 35, je vérifie le nombre d'emballage plusteurs petits programmes, c'est assez facile.Il 

expédié À faut écrire les programmes les uns à La suite des 

au pas 43, j'affiche le nonbre de pièces expédiées autres séparés par un RIN. Les seules limitations 

selon le rapport pièces/emballage - pièces commandées viennent de la nécessité d'utiliser des labels A,B... 
cuantité: au début des programmes et de ne pas utiliser plust- 
rue j'enrecistre aux pas 48 : RCL 02 pour la lère série eurs fois un même label numérique. On peut ausst pré- 
: au pas 50 : RCL 02 pour ia 3ème série voir un label alphabétique par programme et l'assi- 


grer à une touche. St la carte est enregistrée et 


PRIX H : S e 5 
us ue en mode USER 1! 

ras 52 : RCL 03 affiche le ler prix 2 Laye asstgnement sera enregtstré sur 
as 59 : RCL 0S 5 2ème prix é | 
+ 62 : Se se “ 3ème ar . Pour enregistrer un programme sur carte il 
: suffit de passer la carte dans le lecteur en mode 
es 5 fonctions de données de srix/quantité programme et le programme à enregistrer vistble. 
sont mises en mémoire sur une carte de donnée L'usage du magnétocassette est un rien 


plus complexe. IL faut, avant de donner l'ordre 

WRTP, placer le nom du programme à ranger dans le re- 
snsuite entre en jeux les frais de port gtstre alpha 

qui vont ce 10 # en 10 X jusqu'à 99% 

avec l'arrondi à la tranche supérieure : ex : 70.5 K = prix €E0 K * ke & 


rême problère avec la tranche de 100 K à 3T ; 

les frais de port étant toujours arrondi par tranche de 10K supérieur. 

3insi que £gour les tranches de Plus de 3 T. Cher Jean-Daniel 
, 


SECONCE CAPTE DE CCHMEES 


Pour gagner du temps chez mes clients, 
j'ai acheté le magneto-cassettes es 


j'ai pu entrer les programmes avec un nom de fichier qui est celui du 


Voici un couple de sous programmes (améliora- 
bles) permettant à l'aide du PPC-ROM,de stocker 
trois nombres décimaux positifs dans le même registre 


zrogramnme 

DU : Les routines PR et UR du ROM n'acceptent, je le rap- 

‘ais je n'arrive pas entrer les données -pelle,que les entiers inferieurs à 1414 pour les 

sous leurs deux formes : ( stocker var trois.Ces deux routines que je te souret 
1°) prix & quantité - 1ère carte de donnée permettent de stocker trois entiers compris entre 0 
2°) frais de port pour chaque département que je visite et 65535.ou trois décimaux à deux décimales (préci- 


et cela pour 10 Départements - seconde carte de données. -sion:0,05 car le programme arrondit la deuxieme 
décimale)compris entre O0 et 255.11 est egalement 
possible de stocker des décimaux supérieurs à 255 
et inferieurs à 65535 mais seule leur partie entiere 
sera rendue ,ce qui represente,au pire,une erreur de 


Je dois vous avouer que je n'ai pas beaucoup de tenps pour trouver les 
solutions, parce que les explications des “anuels d'utilisation sont 
très mal faites. 


J'ai compris la marche à suivre pour copier ces instructions sur les 0,4#(1/256). 
cartes magnétiques O1 LBL "PRD" 21 E2 10 + 
ais je ne peux pas trouver les explications pour les cassettes. 256 tv + XROM "NC" 
J'ai acheté : équiper i i X)Y? LBL O1 ne SE 
re. on équipement en plusieurs endroit GTO 00 XROM "Der RCL T 
en demand i m' ani _ SF 00 XROM "DC" FS?00 
se à au revendeur de m'expliquer le maniement de cette calcu LaL 02 26 2TN 3T0 00 
: | XROM "QR" LBL "ERR'" E2 
sour vendre cet article, j'ai eu une promesse électorale FS? O1 CL X ST/ Z 
-'ai acheté ensuite le lecteur üe cartes à la REGLE À CALCUL STO MERR" 1/X HN 
à je n'ai gas eu le fonctionnement recherché. 10 SIC 01 50 END a 
-J'ai des prosranres très courts : 5 pas Le ee ce 00 
:2 sont des programmes de calcul de TVA ou l'inverse GTO 02 01 LBL "URD" 256 
-2ur conserver ces programmes, lorsque la HP me plante ? 2 ARCL IND Y : È 
_'ai plus vite fait de rentrer ces programmes, FIX 2 XROM "NC" 
:ue ce passer les cartes, RND Last X = 
sauf s1 je peux sur la même carte passer nes 6 programmes de TVA : SF O1 XOY 25 END 

- et son inverse - 18.60% & son inverse XOY XROM "CD" 
2t pour un court temps 17.60% à son inverse UE x ARCL IND T 
ant a'acheter mon inprinante chez un autre revendeur : ILLEL 20 FRC X02Z 

E 


‘ai £osé le probière de m'aider { et cela se passait cendant les 
icances, donc il y avait peu de ronde 

# vendeur ñe jerande de lui faire un orzanigranre, ce que j'ai fait 
‘t je suis revenu 

8 vendeur n'a tacé un programme, nais c'est pas un ?,5 qu'il a enre- 
.stré le résultat : 


Pour introduire les données,initialiser en faisant: 
CF 00,CF 01, CLA. Introduire la ‘ère donnée ,ruis 
XEQ "PRD",28 donnée, XEQ "PRD",5è donnée,XEO "PRD", 
ASTO xx.xx étant le registre dans lequel! les donnees 
doivent être stockées. 
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Pour recuperer les données stockées:CLA,xx.ENTER,r. 
où n est le numero suivent: XEQ "URD"—— 
1 pour recuperer la dernière donnée entrée 
D at " " * seconde # # 
5 * % " " première " " 
Cette numerotation speciale vient du fait que la 
routine NC compte les caractères de la droite vers 
la gauche,elle peut sembler genante mais permet 
d'associer la partie entière d'un nombre avec la 
partie fractionnaire d'un autre et donc de former 
de nouveaux nombres ce qui peut presenter un certein 
interâêt.Exemple:en stockant 22,35 et 44,55 si l'or 
feit n=1 on obtient 44,55 
n+ 3" " 22,33 
n=2 " " 55,22 


On remarquera que l'on est pas obligé d'introduire 
toutes les valeurs à stocker en une fois comme avec 
UR et PR,pour stocker une autre valeur (rang /=5) 
il suffit d'effectuer:CLA,ARCL xx,introduire Le 
nombre à ajouter,XEQ "PRD'",ASTO xx. 

I1 semble egalement possible de remplacer un 
nombre var un autre dans la memoire xx grace à la 
routine SU du ROM,mais cette version ne le permet 
pas. 


Je te fais un bref commentaire sur ces deux sprgms. 
PRD :lignes 1-4 Testent si x est inf.à 256 et 
effectuent le branchement en consequence. 

1. 5-8: cherchent le quotient et le reste îñe le 
âivision per 256 de x. 

1. 8-9: envoient un messege d'erreur si la premiere 
veleur stockée utilisait l'autre loi de stockage 
(nécessité de l'unifornité du stockage) 

1. 10: envoie 2u stockage proprement dit 

1. î1-13: renvoient à l'autre loi si elle a été 
précedemment utilisée. 

1. 14-22: sen2rent les vearties entieres et fraction- 
-naires et les trensforment en nombres entiers. 

1. 23-25; transforment les deux parties (int,frac 
ou quotient,reste) en deux caracteres dans alpha. 
1; 27-30: produisent le message d'erreur de 1.8 





URD :1.2: rappelle la memoire xx dans alpha. 

T.7: rarpelle le nè caractère de alpha dans 2lrha 
1;4-5: sauvegardent le valeur de n 

1. 6 : transforment le caractere @ans alpha en son 
code decimal. 

1.7-10: restaurent alvha et ajoutent 1 à n. 
1.11-12: idem que 35 et 6 pour la 2è partie du nomore 
1;514-15: determinent auelle loi utiliser pour retr- 
-ouver le hombre initiel. 

1.16-20: cas des nombres inferieurs à 256 

1.21-25: " y " superieurs " " 


Four des raisons évidentes de precision il est 
fortement conseillé de grouper dans les mêmes regis- 
-tres les nombres inferieurs à 256 . I1 egalement 
possible de stocker de très grands nombres par trois 
si la vorécision n'a aucune importence.ll suffit de 
faire x,LN,XEQ "PRD".Puis, Xeq "URD",efX mais 
l'erreur est de l'ordre de 1%. 


Happy programming 
Gilles (9528 T22) BARRET 


PPC: L'ambition d'avoir les moyens! 


*X *X + 


Geneve, le 26/09; 82 


Cher xonsieur; 


Merci veaucoup pour votre journal, que j'ai aporecié 
enormément. Pour les overlays, j':i éte un petit peu 
surpris car je m'attendais aux overlays de K£Y-NOTES 
qui sont en vlastiques, et qui sont tres bien. 

Je me demandais si vous en aviez quelques-uns a vendéé 
Si c'est le cas, pourriez-vous m'indiquer le prix, 

cela x'intéresse vivement. 

D'autre part, j'aimerais commander les 3 icrocodes, 
ce qui fait au tot:l: 82ff + 17FF de frais ce port 

([e les comptes s$dlemint 2 fois, car ils peuvent ître 
envoyés ensemble (si ça ne va pas, é:rivez--oi)} 
J'aimerais en plus les iocuments préparatoires de la 
PPC Sast Cost COnference. 

Le total fait donc 149FF, que je vous envois par mandat. 
Vous dites dans votre aernier numéro que v:.us augrnéntez 


Avertissez-mai si je dois payer plus, mais ça doit aller, 


je pense. 


D'autre part, j'ai un truc(pas de moi) pour empêcher le 
Memory Lost... Je pense que vous le connaissez déjà, 


mais le voici: 
Ok LBL "MS* 
92 g 
93 Xtre 
ga "Yx" (89,126) 
5 192 
Le RÛL M sv 
67 STO IND Y 
08 RCL Z opposé 
g9 STO ce 
1 CLST (facultatif) 
11 OFF ( ". ) 
12 END Ÿ 


1 1BL"SMS"” 
g 
93 X<>c 
fa 192 
g g 
g6 STO IND Y 
e7 REL Z 
g8 STO ce 
& CLST (fac) 
19 END 


,0n peut même mettre les 2 programmes ensemble, 


evidemment. ronctionnement: XEQ'S" 


Dés qu'on éteint la machine, 118 faut enlever les batteries 
et appuyer sur CLX en les remettant pour la rallumer. Ca 
inhibe le Memory Lost. Le pro ramme SMS remet les choses 


en place. Voila... 


Yves Cheneval (T87) 


St j'at bien compris, tl s'agit d'éviter un 
Memory Lost à l'allumage de la machine. En principe 
La HP-41 C exécute ce que HP appelle un départ à frotd 
(c'est à dire un Mémory Lost) st au moment de La mise 
en route elle rencontre la touche + . 
NO  * * * 
Pour ceux qui ne possèdent pas le module x-fonctions 
(comme c'est mon cas), voici un “petit” programme qui 
permet de simuler la fonction ‘ALENG'; il donne la 
longeur du contenu du "registre" alpha (avec quelques 
restrictions -voir note I-) sans le modifier et en un 
temps approximatif de I.6s (qui ne dépend pas du nom 
bre de caractères). Il utilise pour cela le registre 
Q et ses propriétés : quand une instruction AVIEW est 
exécutée, le premier demi octet de Q contient le nom- 
bre de caractères de l'affichege non-utilisés pour 
est à dire # si al- 
pha contient plus de 12 caractères ou I2-le nombre de 
caractères de alphassi celui-ci est inférieur à 12. 
Ainsi, si alpha contient 5 caractères on aura 7 dans 


réaliser l'affichage de 'alpha', 


Q etc... 


Le pgm 'len',aprés affichage de alpha, décode le 
contenu de Q et calcule son complément à 12. Si alpha 
contient plus de I2 caractères, il n'affiche que les 
12 derniers caractères de alpha et ajoute I2 au ré- 


sultat trouvé dans Q. 


Le pgm 'LEN' n'utilise que la pile et alpha, de pluk, 
il met à # le flag 25. Aprés l'execution de 'LEN' la 


pile contient : 


T: 6 Llers caractères de alpha. 


A3 DELEBECQUE. (T 16) 


Z: 6 caractères de alpha ( place 7 à I2 ). 
" 


F ” ai 


X: Nombr# de taractères pe 
place 19 à 24 ). 


L: 6 caractères de alpha 


#1 LBL'LEN 


92 ASTO T à 

Rage 
ÿ4 ASTO Z AN de à 
#5 ASHF (a 
86 ASTO Y 
87 ASHF 
#8 ASTO X 
89 CLA 
14 X=Y2 Run de Æ conackies? 
II GTO #1 ___ 
12 ARCL X Qui : nappe] doo 
13 ARCL Y  Guxt denmisne. 
I4 GTO g2 


15 LBL #I Km: no à dus 


16 ARCL Z & à 
IT ARCL TO 7 Prum. 

18 SF 25 

19 LBL #2 

29 SIGN  Souseognde da x do L 
21 AVIEW 

22 CLD 

23 XC>Q FappË de 

24 XOd # 5 
25 CF #4 —, 


1 1 
26 CF #5 Deralage dura 
27 CF 6 Coin veu a 
25 CF ÿ7 ede du \% demi 
2y Fs?C #ÿ ©Xek da Q 


38 
31 
32 
33 
34 
35 
36 
37 
38 
3y 
4ÿ 


“ ( place 13 à 18 }). 


contient alpha. 


SF $4 
FS?C SI 

SF 95 

Fs?C #2 

SF 06 

FS?C #3 

se 67 

SF #6 Seçu 
SF 93 __ pl 


X<>d Extra chiora A 
X<ou 
LT «XX de Q 


4l pat 

42 LEN À malin. 
43 1<>M 

44 "R@06000 

45 CLX Namodgohim 
46 Tu de À 

47 CLX Cam ge 

45 12 & ou à À 
4y FC?C 25 

SH ST+X  Caloul 

SI ST+h répuWXaX 

52 X<>h Ra ppal 

3 CLA Maires 
54 ARCL T Fuel auna lis 
55 ARCL Z du. rejet 
56 ARCL Y  oiplat. 

57 ARCL L 

58 END  II6 octets 


NOTE I: Le pgm "LEN' donne des résultats incohérents 


le prix de CTR... J'espère que ça ne ma concerne pas, si alpha contient les caractères ".",","m,"zn, 
puisque vous ne m'avez rien dit dans votre petit mot. donc prudence si on ARCL des nombres !. 
& NOTE 2: Ligne 44 : F7 7F 09 6 66 59 Y6 69 ; 
PPC-T N 2. 2 CS 
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k APPLICATIONS % 


DEBAQUE Ph. (T25) 
Vaujours le, 8/9/1982 


Cher Jean Deniel , 
L'idée de publier dans PPC-T "Le coin 
des débutants" est une bonne initiative. Le club prend un 
essor considérable,pour l'instant nous sommes soixante dix 
dans deux mois lors de la parution du prochain numéro ce 
nombre aura doublé ou triple . Cette nouvelle rubrique 
attirera certainement beaucoup de novices comme moi, qui 
se sentaient trés isolés,mais maintenant nous pourrons 
participés activement au journal sans se sentir inferieur 
au reste des participants trés actifs et surtout trés 
connaisseurs de leur materiel favori.Le PPC américain est 
un club plein de petits génies en micro informatique,mais 
je suis sur qu'il y à autant de personnes stoute proport= 
ions gardées qui sont d'un niveau moyen.Ne nous laissons 
pas méduser devant le "génie" de création d'outre atlan- 
tique.Le programme de M.Ancelet sdans le dernier numéro 
de FPc n'est qu'un exemple parmis tant d'autres. Cela montre 
Que le BPC Toulouse peut tenir la dragée- haute au PPC 
Américain. 
Je vous écris pour lancer un %S, 
actuellement je m'initie a la programmation synthétique, 
en utilisant le CRIC (Voir articles de 1'OI)j'ai découvert 
quelques" registres" (je nets registres entres guillemets 
Car ne sachant pas nommer ma découverte)dont voici la liste 
2 DoC 5005 D Es FC Hold 5 Ly MoN 50 3P 9 QyTyX5ToZet k. 
Ces registres ont 6t6 découvert en utilisant le programme 
suivant: 1 
RCL IND 16 
RCL IND XX 
(Fonction) 
faire deux BST , CRIC ou BG , éffacer le RCL IND 16 et 
faire deux SST pour voir apparaitre la fonction synthétique 
créee. Dans ce programme RCL IND XX varie a chaque nouvelle 
fonction synthétique a créer.Pour informtion au débutant 
en programmation synthétique je vais vous donner les éle= 
ments pour trouver les registres cités 


fonctions a inserer 
ala fin du PRCM 









TNMMHO TOUS UMHMAMMUAUE ROUE 





Je reviens sur les XROM trouvés,ont ils une utilité ? 
Une remarque,les chiffres avant la virgule ne changent 
pas selon la fonction classique choisie mais par contre 
les chiffres aprés la virgule eux changent selon la fon- 
ction utilisée.Qui pourrait me dire si il y a d'autres 
IROM qui commenceraient à 00et se termineraient à 99,soit 
XROM 00 ,nn jusqu'a XROM 99,nn ?????( Ce qui donnerait 
800 XROM) 


Maintenant nous connaissons se que crée les fonctions 
standards de notre HP sutilisons le programe: 
1 
RCL IND 16 
RCL IND XX 
X<=0? 

Nous allons commencer le PROM avec 16 pour valeur deXX 
dans RCL IND XX, nous incrémenterons de 1 ce registre 
indirect jusqu'a ce qu'il soit égal a 99. Ce qui va 
.donner le tableau suivant: î 


Sont ils les nênest 
que dans un listing 
classique ?7?7? 


IND 83 à95 
RCL IND 96 à99 





Je désirerais savoir comment doit on manoeuvrer pour 
obtenir des "+9$?é " et autres signes bizzarres? 
J'avoue franchement ne pas avoir compris le tableau 
parut dans PPC Vi N3.Comment faire pour obtenir une 
fonction dont le code hexa est F5 04 00 00 84 84 ? 

Si j'avais compris le tableau cette question ne me 
tracasserait pas l'esprit. 

Encore une petite question et aprés'je ne vous embeterais 
plus, leoteursde PPC,Qui pourrait me donner les équiva= 
lences si il y en a;avec les registres que j'ai trouvé 
plus haut ,pour l'instant je n'en connait que six les 
voici: 


M = C (Crochet ouvrant) 
H = \ (Antislash) 

O = 1 (Crochet fermant) 
P =% 

Q = Souli gné) 

CL Texte 


Merci a tous par avance.Je me suis apercu en lisant 
la liste des adhérents que mon indicatif télephonique 
n'était pas spécifie,j'ai du oublier de le donner c'est 
le (1) .L'oubli est maintenant réctifié. 


Joyeuse programmation a tous 
Ph. DEBAQUE (T25) 





Je ne pense pas qu'il soit question pour nous 
de "tenir la dragée haute"au PPC Américain; j'at per- 
sonne llement trop de dettes à son égard pour avoir 
ce genre d'attitude. Par contre st vous voulez dire 
que nous ne devons pas nous latsser intimtder, alors 
là d'accord. Pas de complexe. 

Puits que vous travatilez avec le "CRIC" 
{appelé 3yte Jumper aux L'SA), vous pouvez facilement 
modifier une chaine de caractéres.le CRIC a la pro- 
priété de sauter un nombre d'octets en mémoire égal 
à La valeur du code précédent. st vous placez un 2 
en mémoire juste audessus de l'instruction à sauter 
quand vous exécutez Le CRIC La HP saute 2 instructt- 
ons. En générai on se contente de sauter 1. 
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Une chaine de caractéres est précédée en 
mémoire d'un octet Fn (Hexadécimal) où n est le nom- 
bre de caractéres de la chaine.St vous sautez cette 
instruction, la HP ne "reconnait" plus les caractéres 
et les confond avec les instructions qui ont le même 
code. Vous pouvez alors effacer ces instructions (ce 
qui donne à l'impresston ce pettt cosange notr, sim 
bole du Nul à l'imprimante)(— à l'affichage) ou les 
changer pour l'instruction qui a le code désatré. 

F5 04 90 00 84 81 est la chaine de 5 carac- 
téres "X_ 4 done tllteible, ou, st on 
ignore le F5 la suite de fonctions LBL 03/Nut/Nul/ 
STOP/RAD. Pas facile à expliquer . Essayez, vous 
verrez. 

Je suppose que le "tableau" est la table 
des codes de la derniére page? Cette table donne 
les différentes interprétations que la 41C fait 
des codes qu'elle lit selon les cas (alpha, programmes, 
écran, imprimante) . Je vous conseille vivement 
d'utiliser pour vos essais le Byte Grabber dé 
crit dans PPC-T VIiWs. 


Dison, le 10 septembre 1982, 


Cher Monsieur, 


En réponse à votre de- 
mande parue dans V1 N2, je vous envoye un systè- 
me D afin de pouvoir utiliser une alimentation 
extérieure sur les nouvelles machines (cela mar- 
che aussi sur les anciennes). 

Ce système réunit tous les avantages que l'on 
peut en attendre: peu coûteux, facile à réaliser 
et léger. 

Tout d'abord, procurez-vous deux morceaux de 
bois rond du genre des perchoirs pour oiseaux 
Non, ne devalisez pas la cage de votre canari 
préféré {). Vous trouverez ce matériau chez les 
oiseliers ou dans les grandes surfaces au rayon 
menuiserie, le plus important étant que le dia- 
mètre soit d'environ 11 ou 12 millimètres. Pro- 
curez-vous également 2 punaises (en laiton si 
possible). Veillez à ce quelles soient du modèle 
clou" et non pas du mocèle "trois pointes". Au 
lieu de punaises, vous pouvez vous procurez des 
clous décoratifs à large tête. Prevoyez aussi un 
fer à souder, de la soudure, du fin fil électri- 
que et un petit morceau de paoier abrasif. 

faintenant que nous sommes en possession du 
matériel, nous pouvons commencer: coupez les 
bois rond 1 ou 2 millimètres plus courts que la 
lonqueur de la pile, contacts compris (ne court- 
circuitez pas les pôles de la pile en mesurant 
sa longueur avec un pied à coulisse { Intercalez 
entre un des pôles et le pied à coulisse un mor- 
ceau de-paoier). Avec le morceau de papier abra- 
sif nettoyez convenablement une partie de l'in- 
térieur de la punaises; à cet endroit, étamez à 
l'aide du fer à souder et de la soudure (cette 
opération sera plus facile si la soudure conti- 
ent un décarant). Répétez l'opération pour la 
2ème punaise. Dénucez environ 2 millimètres de 
fil et étamez-les également, soudez cette partie 
du fil sur la partie étamée de la punaise (att- 
ention aux doiats, c'est chaud 1). Piaquez ensui- 
te la ounaise dans une extrémité du bois, enfon- 
cez-la bien à l'aide d'un marteau, placez le fil 
le lons du bois et faites un tour de toile iso- 
lante ou ce papier collant autour du bois et du 
fil, cela résistera mieux si, par accident, vous 
veniez à tirer sur le fil d'alimentation. Placez 
dans la 41 le porte-piles vide, enlevez le cache 
aui permet l'insertion de la orise du chargeur 
et marquez cet endroit (sur le porte-piles) avec 
un crayon ou une pointe de compas. Retirez le 
Dorte-oiles et forez à l'encroit marqué un trou 
itenviron 3 milliètres (enlevez bien les Savures 
aui pourrait abimer le fil). Placez les 2morcea- 
ux de bois dans les logements extérieurs du por- 


te-oiles (vous auriez intérêt à choisir des fils 
de couleurs différentes pour les polarités) en 
faisant passez les fils dans le trou pratiqué 
dans le porte-piles ET dans le £rou pour la pri- 
se du chargeur. Il ne vous reste plus qu'à ra- 
ccorcer les fils à une alimentation acéquate. 
Tant que nous sommes dans les bricolages, vous 
oourriez seut-être intercaler entre l'alimenta- 
tion et la machine, un interrupteur; cela vous 
éviterait de devoir enlever le porte-niles ou ce 
devoir déconnecter l'alimentation lors d'un 
éventuel ?) plantage. 


J'espère que vous n'avez pas trouve Cette üe-— 
scription trop longue. Les quelques fiçures de- 
ssinées ci-dessous devraient vous aider pour me- 
ner cette réalisation à bien. 

Amicalement, 
Daniel (T59) MEYER. 
Etamage Soudure Fixation Placement 





P.S. Vous devrez peut-être enlever un petit 
morceau de bois à l'aide d'un couteau sur le 
bois de droite afin que les fils puissent faci- 
lement passer dans le trou pratiqué sur le oor- 
te-piles. 


* *  * 


COUP D'OEIL SUR LA NOTATICN POLONAISE INVERSE (REN) 


. Cet article est écrit pour ceux qui sont 
intéressés par l'origine exacte ce la RPN. Devuis 
l'introduction des ordinateurs de poche qui { 
utilisent un langage de haut niveau (2ASIC), il 
veut sembler que les calculateurs utilisant la RPN, 
tels que ceux que nous avons connus soient condamnés 
à disparaître. Bien entendu, je ne l'esvère aucune- 
ment et je ne considère nullement ceci comme une 
prédiction. Néanmoins, le rôle des calculateurs 
RPN est en train d'évoluer et avec l'introiuction 
des nouveaux modèles qui pourraient vien avoir âes 
répercussions certaines sur le petit monde de PPC 
(HP 75), je pense qu'il est nécessaire ce jeter un 
oeil au travers de cet article sur ce qu'est la 
notation polonaise inverse : 


Cet article fut en fait écrit il y a trois ans 
et devait être un arpendice d'un livre écrit par 
Richard J. Welson et moi-même :"Techniques ée 
programmation vour calculateurs RPN",. En fait, la 
conception du PPC-ROM débuta à cette éroque et le 
projet du livre fut abandonné. (Nous esnérons que 
ceux qui ont eu entre les mains le manuël du ROM 
comprennent aisèment pourquoi le livre n'a jamais 
vu le jour). À 


A la conférence de PPC à Sante Clara en 1979, 
j'ai présenté un bulletin titré : "Histoire de la 
RPN". J'y citais quelques références aux premières 
applications de la notation polonaise (NP) aux 
ordinateurs. Cependant il ne fut pas possible dans 
ce court ravport de détailler ce qu'était la RPN j 
lors de sa création. Ce repport vrécisait surtout 
que la NP fut inventée par Jan Lukasiewicz (1878- 


.1956) en 1928 et non vers 1950 comme il fut souvent 


écrit et que sa création est éonc bien antérieure 
au premier ordinateur. 


. Une des raisons qui me poussa à m'intéresser 
de près à la NP fut un jeu qu'on m'offrit alors 
que j'entrais au lycée. Ce jeu : "WFF'N PROCF" est 
destiné à dévelovper votre sens logique. Je n'ai 
jamais appris à y jouer mais il est resté 20 ans 
sur mon étagère et il utilise la notation rolonaise 
inverse introduite par Lukasiewicz en ‘229, Je 
possède ce jeu ienuis ‘Q62 mais c'est en ‘979 que 
j'ai découvert les liens intimes qui joignaient ma 
HP et #FF'N PROCF. 


Une autre raison de mon intérêt pour la NP 
vient des premières lettres que j'échangeais avec 
John Me Gechie. John est professeur ie shilosophie 
à l'université de Monach en australie mais il est 
rlus connu îes membres ce PPC en tant que rédacteur 
de PPCTN. Jonn et moi commençânes à corresvonère à 
provos de logique et ïes calculateurs bien event 
qu'il ne Sevienne ce qu'il est aujours'nui pour PEC. 

John avait écrit ies articles äans l'"Austra- 
lien Logic Teachers Journal" ainsi que s'excellenÿs 
programmes pour ææ 19C. IL comprenait vien mieux que 
noi les rarrorts étroits entre la NP et la logique 
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symbolique. J'avais, pour ma vart, écrit un programme 
sur HP 67 pour jouer au WFF'N PROOF et pour calculer 

des tables de vérité. J'aveis découvert qu'en logique 
symbolique les formules bien organisées sont aisèment 
reconnaissables lorsqu'elles sont écrites en NP. John 
Mc Gechie me fit parvenir de précieuses informations 

sur Jan Lukasiewicz ainsi qu'une bibliogrephie sur la 
logique symbolique appliquée aux ordinateurs. 


Un historique complet sur les liens profonds | 
existants entre la logique symbolique pure et l'algè- 
bre de 3oole, les commandes var circuits électroni- 
ques et les ordinateurs modernes serait un travail 
colossal. Cet articie a seulement pour but d'expli- 
quer le ravvort entre les netations mathématiques et 
logiques. Il ne fera pas de vous un meilleur program- 
meur mais vous aurez un aperçu de ce que représente 
l'abréviation RPN. Des connaissances en logique 
symbolique vous seront utiles pour la compréhension 
mais ne sont vas absolûment nécessaires. 


Beaucour de gens savent que RPN signifie Nota- 
tion Polonaise inverse mais très veu comprennent les 
bases de ce système de notation. Jan Lukasiewicz 
était un logicien polonais qui inventa une notation 
sans parenthèse vour écrire des expressions logiques. 
Du fait que la nationalité de Jan Lukasiewicz est 
plus facile à retenir que son nom son système de 
notation fut bartisé NF. 


Une description de ce système fut publiée dans 
deux de ses travaux en 1929. Une de ces recherches 
se comvosait de notes nrises lors de ses lectures 
à l'université de Varsovie en automne 1928. Il faut 
remarouer que lorsque Lukasiewicz présenta les 
résultats de ses recherches, il mit l'accent sur la 
notation sans rerenthèse. Cette idée date de 1928 et 
est donc antérieure de vrès de 20 ans au premier 
orâinateur. 

La lozique evmoolique est utilisée nour dévelop- 
per des métnodes déterminent si certaines phrases 
reuvent être utilisées comme complèments à d'eutres 
Des 2hrases simples ont une valeur de vérité dans 
n'importe quel contexte et d'autres phrases peuvent 
être considérées comme des unités syntaxiques avec 
lesquelles on veut former des phrases composées 
complexes. Ces blocs sont reliés entre eux var des 
connecteurs logiques Gont les cinq plus courants 
sont : "et", "ou", "ni" (non), "si... alors" et 
"si et seulement si", ; 

Le symbolisme est ainsi introduit en logique 
en utilisent des lettres de l'alphavet pour repré- 
senter les phrases et des symooles spéciaux pour 
les connecteurs logiques. Prenons comme exemple de 
traduction en forme symbolique la phrase suivante : 
"Si Teorzes roit et ne fume pas, alors Georges est 
en bonne santé", C'est une phrase composée de trois 
"phrases" élémentaires que nous revrésenterons par 
les lettres D, q et r. np : "Georges boit". 

9 : “Georges fume" 


r : "Georges est en vonne santé". 


Utilisons les symboles "-" pour ni (non), 
">" pour si ... 2lors, "A" vour et, la chrase 
précéiente peut alors s'écrire : (n4a&)ær. Consi- 
iérons maintenant la phrase s : "Georces devrait 
perdre ses sales habitudes". Alors l'expression 
symbolique (vaq)æ(TAs) peut se traduire par : 
“si Georges toit et fume, alors Georges n'est pas 
en tonne santé et il devrait perdre ses sales 
heabituies". 


Nous avons utilisé ici des parenthèses pour 
insiquer clairement les groures ie phrases à associe 
et les connecteurs logiques entre eux. La raison de 
ces rarenthèses est d'éliminer toute ambiguité qui 
pourrait 2rrareître avec de telles formes synvoli- 
ques. Ces rarenthèses logiques ont ionc exactement 
la rême nification que celles utilisées dans 


à 


les expressions mathématiques. 





L'exvression mathématique 2 + 3 * 7 peut, 
en effet, être mal interprétée pour qui isnore les 
conventions mathématiques habituelles. Si l'on 
effectue ces ovérations de zrauche à droite, on 
ootient 35. On reut également multivlier 3 rar 7 et 
ajouter 2 au résultat, on obtient alors 23. L'exvres- 
sion 2 + 5 * 7 est donc ambigue et l'on veut lever 
cette ambiguité en introéuisant ies varenthèses. 
Si nous voulons que l'addition soit effectuée en 
premier, nous écrirons (2 + 2) * 7 ; dans le cas 
contraire, on écrira 2 + (3:7). 


Cet exemple est très simple mais démontre 
clairement l'utilité des parenthèses pour grouper 
des symboles. Il reut être nécessaire dans des 
expressions compliquées d'utiliser plusieurs niveaux 
de parenthèses nour bien préciser l'ordre exact de 
résolution de l'exvression. Mais un nombre important 
de parenthèses nuit à la clarté de l'expression qui 
ievient difficile à lire. De plus, il n'est pas 
incorrect d'utiliser plus de parenthèses que néces- 
saire, mais il est bien sûr idéal d'en utiliser le 
noîns possible sans changer le sens exact de l'ex- 
pression. Pour cette raison, certaines conventions 
ont été adoptées en mathématiques. L'une de ces 
conventions considère la multiplication et la 
division comme prioritaires par ravvort à l'addition 
et à la soustraction. L'expression 2 + 3 * 7 n'est 
donc plus ambigue et son sens reste défini, sans 
aucune parenthèse. Bien entendu, si le sens primitif 
voulu est d'effectuer l'rdiition en premier, on 
doit utiliser des parenthèses et écrire (2 + 3) * 7. 


La convention vré-citée ne lève pas l'ambi- 
guité de l'expression 16/8/2. Effectuée de gauche à 
droite, cette expression donne 1, mais si l'on 
exécute 8/2 en premier, le résultat devient 4. 
La convention précédente a donc été affinée et 
vrécise que Les opérations de même "niveau" doivent 
être effectuées de gauche à droite. Dans la pratique, 
on préfère utiliser les parenthèses et effectuer en 
premier les opérations intérieures aux parenthèses 
puis celles qui sont à l'extérieur. 


Revenons à Georges. Les embiguités peuvent 
se présenter en logique symbolique tout comme en 
mathématiques. Prenons pour exemple les phrases : 


» : "Georges jouera du piano" 
q : "Georges chantera" 
Tr : "La soeur de Georges chantera" 


Adoptons le symbole "v" pour "ou". L'expression 
pvqar est ambigue car l'on peut obtenir deux inter- 
prétations. Si l'on traduit pv(qar) on obtient : 
"Georges jouera du piano ou Georges et sa soeur 
chanteront". Si l'on traduit (pva)ar, alors : 
"Georges jouera du piano ou chantera et sa soeur 
chantera". Ces deux interrrétations sont manifeste- 
nent différentes puisque dans le second cas, la 
soeur de Georges chantera obligatoirement, alors 
que dans le premier, il se veut qu'elle regarde sans 
rien dire son frère jouer du piano. 


Exactement comme en mathématiques, des règles 
de voriorité ont été établies entre les connecteurs 
logiques. Ces conventions permettent de réduire le 
nombre le parenthèses au minimum. Nous ne détaille- 
rons pas ces conventions puisque notre propos est 
simplement d'introduire la notation polonaise. 
Beaucoup de textes sur la logique symbolique n'utili- 
sent pas les parenthèses mais des points vour grouper 
les symboles. L'expression (pvqa)A(qvr) reste comoré- 
hensible si l'on écrit pva)a(qvr, ce qui peut être 
représenté par pvq.a. qvr + 


Néanmoins ce système ne peut être considéré 
comme une notation sans varenthèse au sens où 
l'entendait Lukasiewicz puisque le symbole "paren- 
thèse" a simplement été changé en symbole "point", 
et que les points sont récessaires pour grouver 
les symboles. On veut étendre ce calcul aux attributs 
dans ce calcul d'attributs, les phrases simples 
veuvent être ensuite décomposées en termes. Les 
quantificateurs existentiels (9 ), et universels (Y) 
sont utilisés pour manivuler ces termes. À chacun 
de ces quantificateurs #st associé un concert 
d'étendue ou de vortée. La vlurart des systèmes 
logiques utilisant la notation à points réservent 
les parenthèses nour rréciser la nortée âes quanti- 
£ficeteurs. 


La rarticularité de la notation ie Lukasiewicz 
28t qu'elle n'utilise ni parenthèse, ni point ni 
aucun autre symbole séparateur. Lukasiewicz utilise 
les lettres majuscules pour désigner les connecteurs 
logiques : © rour  (coniition), A rour ‘felternative 
X vour (conjonction), N pour (négation), = rour 
équivalence ou si et seulement si. Le condition 
sinple : si » 2lors q qui s'écrit orsinairement 
Dæq Se note Craq en NP. vaq devient Knq, et vvq 
ievient Anq tandis que D s'écrit No. 

Ce synbolisme utilise les majuscules pour les 
onéreteurs et les minuscules pour es onérandes. 
L'opérateur est vlacé à gauche des ovérandes dont 
l'orûre est imoortant. =n effet Coq s'énonce si v 
alors q, tandis que Cqp se lit si q 2lors 0. 
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Des phrases symboliques complexes peuvent être 
formées sens embiguité sans utiliser ie perenthèse. 
Lukasiewicz souligna également que sa notation était 
facile à écrire sur une machine à écrire standard. 


La formule (paq)mær s'écrit en NP : CKoNqr. 
La construction de cette formule peut se comprenére 
aisèment en partant de l'expression entre nvarenthèses 
Nous avons pAg ce qui signifie p et non q. Na rempla- 
ce non q, puis nous formons la conjonction v et non q 
en écrivant £ à gauche des opérandes, soit Kris. 
Cette condition entraine la conséauence r, nous 
écrivons donc © à gauche et r à droite, d'où le 
résultat CKpNar. 


(pAq)æ(Tas) devient CKoqKNrs. L'antécédent et la 
conséquence s'écrivent Kpq et XNrs, la condition 
s'écrit en ajoutant ces deux termes à la droite de C. 
On compreni donc pourquoi la NP n'utilise pas de 
parenthèse. 


Si nous nous intéressons de nouveau à Georges 
et à sa soeur, la forme pv(qar) s'écrira ApKqr et 
la forme (pvalar deviendra KApqr. Il est à remarquer 
que dens ApKqr le A s'applique à np et Kar, alors que 
K s'anplique à a et r, mais dans KAvgr, À s'applique 
à p et a, et K s'apvlique à Apq et r. 


Remarquons également que n'importe quelle 
chaine logique veut ne vas être formée correcterent, 
rer exemple Aoq0r n'a pas de sens car, tout d'aÿord 
C est un connecteur nécessitant deux ovérandes or, . 
il n'y en a qu'un à sa droite. Mais même si l'on 
introduisait s à sa droite pour satisfaire à la 
règle, on obtiendrait AvqCrs, ce qui est toujours 
incorrect car Avq et Crs sont bien deux unités 
correctes mais dont la justaposition simple (sans 
conrecteur) ne signifie rien, par contre, on obtient 
une forme valable en 2ioutant K AU è 
zauche soit KArqCrs ce qui signifie (pVa)a(ræs). 


Nous avons vu précédemment que le rôle des 
rerenthèses en mathématiques et en logique était 
identique. En fait, il existe des liens très étroits 
entre la syntéxe des phrases et les formules mathéma- 
tiques. Chaque vhrase bien conçue peut être trans- 
crite en formule utilisant l'addition, la multipli- 
cation et la négation. L'inverse est également vrai. 
Cette trenscrivtion permet de visualiser clairement 
la structure algébrique de ces phrases. La logique 
algéorique obéit à beaucoup de lois (mais pes toutes) 
de l'arithmétique. Lorsque l'on transcrit une phrase 
en formule mathématique, les variables ne représen- 
tent plus des vhrases mais plutôt la valeur logique 
des vhrases traduites. Cette arithmétique peut se 
réduire à O ou 1, O = faux et 1 = vrai, les connec- 
teurs étant traduits en opérations mathématiques 
classiques. 


Par exemple, la conjonction Logique “et” 
se transforme en multivlication, d'où paa devient 
p.3 où l'on voit que si p est vrai et q faux, alors 
p.q est faux, de même que pag est faux. Le seul 
cas où vAq est juste est donc celui où p et q sont 
tous deux vrais (en effet ! * 1 = ‘). L'alternative 
("ou") se transcrit par l'addition. Le "ou" utilisé 
en logique est toujours le ou inclusif. p”q s'énonce 
donc : p ou q ou les jeux à la fois. pvYq est donc 
vrai si au moins un des deux est vrai, le seul cas 
où pVa est faux est celui où p et a sont faux tous 
deux, et l'on a bien p + q = 0 p=0et a = 0. 
Un iéger probième se pose si p = ‘ et q = | car 
e a = 2. L'addition iozique se iistingue donc 


légèrement de son noroïogue algébrique et l'on doit 
poser 1 + î = ‘ . Le nézation äu vrai étant le faux, 
on pose donc également - 9 = ‘ et - ‘ = C, auquel 
c2s © s'écrit sinrlerent - 0. 

Les iois d'associativité et e commutativité 
s'appliquent à Aet v, &e même que la distributivité 
de A car ravrort à vet celle de Voar ravvort à 4. 


La liste suivente donne quelques exemples de traduc- 
tion Se vnrases en leurs équivalents mathématiques. 
DYI—D + q DA = 0.4 

pv(qar)=p + (a.r) (rrivs=p. (-rl+s 
(Bag)v(qaF) p.q + D.(-r) 
on pourrait donner i'autres exersles mais notre 
sroros est @e faire, ici, un lien niestorique entre 
la YP et la notation matnénatique ordinaire. 


En 1847 George 3Boole ruolia une analyse 
mathématique de la logique qui 2pvrliquait l'alzèbre 
aux syllogismes. Cetbalgèbre n'était vas celle ui 
est aujourd'hui connue sous le nom S'algèbre 5e 
Boole. L'algèbre de Boole fut inventée var Feirce 
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(sva)a(qvr)—(2+q).(3+r) 


et Schrocer et avvliquée à la logique des vhrases. 
Un des asvects invrortants du travail de Boole est 
qu'il utilisa de façon nouvelle les symboles de 
l'algèbre. Jusqu'àlors l'algèbre n'était appliquée 
qu'aux nombres réels. Boole étudia les raprorts 
entre l'algèbre et la logique et Schroder et Pierce 
&évelorvèrent ces résultats. Lukasiewicz était 
également un historien de la logique. Bien que la 
NP fut originellement apoliquée à la construction 
logique es phrases, Lukasiewicz treduisait également 
des formules logioues en notation mathématique ordi- 
naire. 


Le lien apvaraitra plus évident si nous 
reprenons les exemples décrits plus haut. Réécrivons 
ces formules en remplaçant les symboles 4, K et N 
de la NP par leurs équivalents mathématiques +, . 


et -. Apq devient +Pq 
Rva 2 -pq 
AoKar " +0.ar 
AKnNrs " +.D-7S 
AKoaKqNr +.09.q=7 
KAvqAar " .+n9+qr 


Un lecteur exrérimenté remerquere irmédiate- 
ent que ceci ressemble fort à la façon dont les 
pérations sont effectuées var un calculateur RPN. 
n lisant ces expressions de droite à geucne, on 
oit quelles quantités doivent être introduites et 
l'opération à effectuer. Considérons maintenant 
les quatre ovérations suivantes qui sont équivalen- 
tes : pvaar), 0 + (q.r), ApKar, +p.qr 
En lisant à l'envers la quatrième exvression, on 
comorend tout de suite comment calculer la deuxième 
expression. Il suffit G'entrer r puis a, de nulti- 
plier les ceux puis C'entrer p et d'ajouter. La 
lecture à l'envers peut être évitée en entrent les 
termes dans l'ordre inverse. 


EUREKA ! La notation polonaise inverse ! 


Ecrit en sens inverse, on obtient rq.p+ qui 
est l'équivalent BPN des nct2tions précédentes. 
La troisième notation : ApKqr est la notation polo- 
neise vrimitivement utilisée var Lukasiewicz en 1929, 
Dans la pratique, les formules mathématiques ne 
sont vas écrites en RPN, mais il est facile de les 
convertir mentalement, que la formule à traduire 
doit simple ou très complexe. 


Trois notations sont actuellement utilisées 
pour écrire les relations entre opérateurs et 
opérendes. Que ces notations soient logiques, mathé- 
natiques ou autres n'a que reu d'imrortence. Les 
termes : préfixe, infixe et postfixe s'avpliauent 
en effet dans n'importe quel système utilisent des 
orérations binaires. Utilisons simplement les trois 
forzes avec l'exemple de l'addition. La somme de a 
et de b peut s'écrire : +ab, a+b ou ab+. La première 
est la notation en préfixe où l'opérateur précède 
les opérandes, la seconde est la notation classique 
et la troisième la notation en postfixe. 


La notation polonaise est une notation en 
préfixe et la RPN une notation en rostfixe. IL est 
surprenant d'arvrenére que les compilateurs et les 
interpréteurs FORTRAN, BASIC, AZGCL ou PASCAL uti- 
lisent la RPN vour transcrire les instructions 5e 
l'utilisateur utilisant la notation classique. Une 
ovération en RPN peut en effet être testée vour 
savoir si sa syntaxe est correcte äès que l'onératior 
est rencontrée sans avoir à examiner le reste de la 
formule. 


Pour en savoir plus sur la N?, référez-vous 
au livre de Lukasiewicz : Éléments de logique mathé- 
natique, qui vous révèlera les vases de départ de 
la notation polonaise inverse. 
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Cher Monsieur Dodin , 


Merci pour le n°1 de PPC-T et longue vie à cette nouvelle 
formule . Vous voudrez bien trouver en fin de ce petit 

mot une commande pour différents bouquins , et surtout 
pour vos notes sur le microcode 1 & 2 , auquel il faut 

bien l'avouer , je ne connais rien , mais que j'aimerais 
pouvoir utiliser un jour . 

J'ai tout à fait la même impression de désarroi face à 

ce nouveau langage qu'avant de me lancer dans la program- 
Et à ce propos , je pense que 

les débutants en programmation synthétique , et surtout 
ceux que l'anglais n'enchante guère , aimeraient trouver 
une méthode simple pour se "lancer" . 

Le mieux serait peut-être de disposer d'une version 
française du livre de w.C. WICKES , mais en attendant ... 
Le livre de Wickes vous fait démarrer la programmation 
synthétique avec un petit exercice de mise en place et de 
retrait de module qui peut rebuter ( surtout si on n'en 
possède pas ! ) . 

L'instruction la plus importante en programmation synthétique 
(PRO.SYN) est évidemment le fameux "Byte Jumper" . 

Une fois celui-ci “mis en boite" , il nous est possible de 
générer toutes les autres fonctions SYN. et c'est d'ailleurs 
la façon dont j'ai procédé au début , quand je ne possédais 
encore ni lecteur de cartes , ni modules mémoire , ni 
module X-FUNCTIONS , ( les temps héroïques ... }). 
Maintenant , les fonctions SYN. les plus courantes sont 


nation synthétique . 


assignées pratiquement à demeure dans ma HP41C , et un 
overlay m'en rappelle les emplacements . S 
Pour commencer ‘donc , il suffit d'une HP41C ,tout 
de même ! , ou CV . Après un MEMORY LOST , il faut faire 
la séquence suivante : appuyer sur : 
ASN BEEP 11 ( SHIFT ASN ALPHA BEEP ALPHA % (sigma +)) 
ASN PACK =11 ( SHIFT ASN ALPHA PACK ALPHA SHIFT Z— 


(sigma -) 
puis passer en mode PRGM et appuyer sur ! 


ENTER# 
CAT 1 (SHIFT CATALOG 1) , et immédiatement R/S. 


Voir .END. REG 45 

Passer en mode ALPHA , phis presser la touche de correction 
(æ ) . L'affichage indique alors : 4094 ENTER# 

Effectuer ensuite quatre fois BST , et voir successivement 


4093 ENTERS ( ne pas s'étonner si certains BST 
4092 @ sont longs , et bien attendre la fin 
4091 LBL 00 de chacun }) 

4090 BEEP , puis effacer le BEEP au pas 4090 , ainsi 


que LBL 03 qui apparait au pas 4089 et voir 4088 LBL 08 
puis en restant en ALPHA 
Sortir du mode ALPHA , et faire un GTO.. 
00 REG 45 


mettre un *C au pas 4089 . 


L'affichage est alors : 


VOUS VOILA EN POSSESSION DU BYTE JUMPER , qui est 
affecté en mode USER à la touche £+ . 
Cette méthode est décrite dans un ancien numéro de 
1' ORDINATEUR INDIVIDUEL , à ceci près qu'une faute ou un 
bug pouvait faire tourner en rond le lecteur pas mal de 
temps . Arrivé à ce point , il est prudent , si l'on 


possède un lecteur de cartes , d'enregistere cette 


assignation avec un WSTS . Ouf ! On peut alors ne pas 
résister à la tentation de voir l'effet de cet XROMO5,03 

en zode calcul , ou en mode programme . 

Mais alors , le risque est grand de se "planter" magistrale- 
ment , soit avec un splendide MEMORY LOST , soit avec une 
l'affichage , 
pendant quelques dizaines de secondes , ou plusieurs 


inactivation du clavier , ou disparition. de 


heures . La thérapeutique dans ce cas est simple , et ne 
peut pas endommager la HP : retirer la batterie , et 
appuyer plusieurs fois sur ON , ou sur la touche de correction. 
11 s'agit là d'un remède de cheval + aboutissant souvent à 
un memory lost , et c'est alors qu'on est content de 
retrouver sa carte magnétique avec l'assignation du Byte 
Jumper . Passée cette phase ludique , on peut envisager la 
création des autres fonctions SYN. » Qui permettront , non 
pas tout de suite de pondre son propre programme bourré 
de SYN. ,mais au moins de pouvoir utiliser des programmes 
tout faits qui en contiennent , comme l'excellent programme 
de Lionel Ancelet par exemple . 
_J'ai divisé , arbitrairement , les instructions SYN. en 
deux groupes pour débuter / Les instructions proprement 
dites , du genre RCL c , X4?2M , SCI IND d , et les 
lignes alpha-numériques SYN. , du genre T+FFS .... 
Si vous n'êtes pas encore fatigués , j'indiquerai en 
quelques lignes comment créer les premières , et plus 
tard , on verra les lignes A.N. 
Je rappelle ici qu'il s'agit de la méthode de Bill Wickes , 
et qu'il ne s'agit que d'aider ceux qui ne possèdent pas 
le livre , ou qui n'aiment guère l'anglais . 
Le livre s'étend en effet beaucoup sur la structure interne 
de la machine , et à ce stade , il n'est pas nécessaire de 
posséder toutes ces notions . 
Un dernier point à préciser également : 
L'instruction "JUMP. lmn , employée par Wickes , signifie/ 
/Utilisation du byte jumper à partir de la ligne lmn. 
EN CLAIR , JUMP. lmn = executer la séquence : 
- GTO.lmn (même si on se trouve déjà à la ligne lnn 
du programme }). 
- sortir du mode PRCGM 
- Byte Jump 05,03 
- revenir en mode PRGM . 
Cette convention établie , pour créer nos instructions SYN. 
en mode PRGM , il faut : 


pas de PRG : appuyer sur : 


001 : LBLTSYNTHET 
002 : STO 01 
003 : TBJ 


Jump 003 ( voir #) 


à ce moment , pour créer par exemple la ligne RCL d s il faut 


004 : RCL 20 
GTO.003 voir ‘B# 
004 : AVIEW 
Jump 003 voir % 
004 : HMS— et GTO.002 voir 02 STO 01 
et avec SST 03 *3J 
04 RCL d 
05 4 
06 EHMS- 


On peut ensuite éliminer les lignes 02,03, 05 et 06 pour ne 
conserver que RCL d dans notre PRGM SYNTHET . 

IN passant en mode calcul , on peut ainsi exécuter RCL d 
(voir 0.00 10 ) , l'affichage variant avec les modes 

FIX SCI ING 


Néammoins , on vient de visualiser là le contenu d'un 


et le nombre de décimales désirées . 
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registre qui contient l'état des 56 flags de la HP41C ! 
La création d'autres instructions n'est plus que la 
répétition du même procédé , en faisant varier les 
instructions à "souder" avec le Byte Jumper , au pas 004 
du programme précédent , avant et après le XROM 05,03. 
En effet , ce qui s'est passé est que nous avons "collé" 
le préfixe de l'instruction STO 20 avec le postfixe AVIEW 
( du moins leurs codes HEX ) pour créer l'instruction 
"RCL AVIEW" , soit RCL d (codes Hex : 90,7E) . 
Pour créer l'instruction STO d , on procèdera de façon 
identique jusqu'au pas 004 , où la première instruction 
sera STO-20 et non RCL 20 . Le reste est identique ; on 
voit qu'il faut souvent utiliser HMS= , aussi il est bon 
de l'assigner . 
L'ordre des instructions est à respecter impérativement ; 
le HMS- (et pas un autre ) sert à remettre un J après le 
B de *BJ de la ligne 003 . —. 
N.B: O STO d efface d'un coup les 56 flags de la HP41C !!! 
Voilà . La table des codes HEX de Wickes donne les 
équivalences , en gros on peut savoir que pour les postfixes 
les équivalences sont les suivantes : 

2...... X4=0? M (LCh....se RDN 

Deco MEAN N (Nhe.ccses LAST X 

Ceosese SDEV 0 (Thsesese CIX 

descoss AVIEN P (The... X=Y? 

Es sscss CLD Q (mecs. XhY? 

É Chossoss SION 

Les préfixes utilisés peuvent également être STO , RCL, 
mais aussi VIEW , ISG , DSE etc... 
SI malgré cela , il persiste des difficultés , celui qui 
est en panne peut toujours m'envoyer une enveloppe timbrée 
self-adréssée , et une carte magnétique vierge , je 
copierai dessus avec un WSTS , le clavier de programmation 
synthétique préconisé par Wickes , p.50 de son livre . . 
C'est un bon début pour utiliser les programmes de son 
livre , ou d'autres , et avoir ainsi accès à.des possibilités 


beaucoup plus puissantes et étendues de la HP41C ... 


J'espère que vous voudrez me pardonner la longueur 
de cette lettre , cher Monsieur Nodin . 
Pour ma commande , je vous serais très reconnaissant de 
bien vouloir m'envoyer : 
- Calculator tips & routines (120F) 
- HP system dictionnary (80F) 
- Microcode 1 (25F) 
= Microcode 2 (27f) 
Je vais essayer de trouver des enveloppes self-adréssées 
grand format pour le port , sinon mon chèque couvrira 
les frais de vort . 
Je joints également une enveloppe pour suivre vos progrès 
en microcode . 
En vous remerciant par avance , et bien cordialement . 
J-P HALLES ( 741) 


P.S : J'ai vu que vous étiez en rapport (ou presque ! ) 
avec alpha-systèmes , pour la traduction du livre 
de Wickes . Allez-vous traduire ce livre vous-même ? 


Vous faut-il un cour de main ? 


Comme indiqué sans doute atlleurs je n'at 
aucune nouvelle de Grenoble depuis plus d'un mots. 
Je crains que cela signifie une réponse négative. 
C'est d'autant plus regrettable que le livre de Bttl 
est déja traduit, 1l n'y a plus qu'a l'éditer. 

Du coup j'at entrepris (et bien avançé) 
l'ecrtture de mon propre livre. Celut-gt ne rempla- 
cera sans doute pas celut de Wicques, mats du coup 
pourra intégrer tous les éléments apparus deputs: 
Byte Grabber, Microcode... 


k rome: XX 


Le Microcode avance à grands pas. La descrtp- 
tion des programmes intemes de la 41 C'est pratique- 
ment chose faite. Reste une inconnue sur les relatt- 
ons avec les périphériques. ! 

Pour qu'un programme en microcode fonctton- 
ne il faut que les programmes intemes utilisés sotent 
trés bien analysés. Ainst le programme XCAT dont le 
listage est çgt-dessous fonctionne trés bien mats a 
demandé de nombreuses heures d'analyse des catalogues. 

Deux autres programmes essayés ne donnent 
pas le résultat attendu, ce sera pour plus tard. 

Le programme commence par son nom, 
comme usuel. Il lit en X LE NUME- 
RO XROM DU ROM DONT ON VEUT LE CA- 
TALOGUE, Le tradutt en binaire. 
On inttialise alors les regtstres 
C et B du Micro processeur.On pla- 
8518 @F8-3E8 READ 3CX) ce Le numéro du premier module 
8s11 38D-E31 possible-1 soit 4 dans le digtt 
8512 888-828 7NC XQ 02E3 voulu de C. On range en À le code 
BS13 826-892 B=9 SEX  XROM, on replace le pointeur et 
8514 85-162 C0 M on entame la recherche du ROM. 
8515 130-578 R= 6 Pour cela on incrémente C au poin- 
8516 118-448 LDER- 4 teur. Si C dépasse F(Hez) le flag 
8517 186-412 AC SEX de retenue Carry est levé et l'in- 
8518 15C-578 R= 6 struction suivante exécutée:st 
8519 222-882 C=C+1 ER on dépasse F sans avoir trouvé 
BSIA 381-E81 Le ROM c'est qu'il est NONEXISTENT 
8518 988-923 ?% GO 828 Crest ce que fait l'adresse 02E0. 
BSIC 330-CC8 FETCH StX st la valeur au pointeur est în- 
BSID 366-D92 RC SEX férteure à F on place en C Setx 
BSIE 643-183 JC ++88 le premier mot du ROM testé. Ce 
BS1F 23A-8E2 CC M mot est le N°XROM. On le compare 
au coderecherché. S'il est diffé- 
rent on prend le mot suivant qui 
est Le nombre de fonctions du ROM 
testé.On accumule ce nombre de 
fonctions en B puis on teste le 
ROM sutvant. 
St c'est le bon ROM on intttaltise 
le CAT 2 en plaçant en P le nom- 
bre de fonctions sautées et Île 
numéro du catalogue (2) puts on 
se branche sur le catalogue 2 
standard qui démarre à la premt- 
TR CARE ére Éonobton du ROM désiré. 

ë Vous avez toute latitude d'aller 
8523 62-882 NC CO 88 ©, marche arriére ou avant (SST) 
RS d'arréter et de redémarer ce ca- 
+ talogue . 


Ce n'est pas inutile car Jantck 


BSeC 894-258 148 T 
B58D 081-881 {A 
858€ 083-483 3C 
B58F 818-269 24 X 


8528 338-CC8 FETCH S&x 
8521 866-192 AC)B SEX 
B522 146-512 A=A+C SEX 
8523 866-192 AC)B SEX 
8524 27R-9E2 C=C-1 M 
BS2S 3A3-E83 JNC +-8C 
BS26 238-8E8 READ 8(P) 
8527 8FC-3F6 RCR 18 
8528 @C6-312 C=8 SEX 
BS29 @7C-1F9 RER 4 
BS2A 2DC-878 R= 13 


Taillandier me signale qu'un catalogue peut durer 
jusqu'a 2 minutes 80... 


Rappelons que, Hélas, un programme en mi 


ero code ne peut ètre exécuté qu'a partir d'un lecteur 
d'EPROM et d'une Eprom. C'est bien beau quand même! 


Jean-Cantel Dodin (7226 T1) 
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RERACTIONS 


COURBEVOIE LE 20 AOÛT 1982 


M J D DODIN 
77 Rue de Cagire 


31100 TOULOUSE 


INTRALUDE 
J'ai suivi le cours de formation où j'ai appris à me servir de 


l'adressage Indirecte 
que j'ai utilisé dans mon calcul de COUPES. 


On apprend à faire des programmes court pour les débutants sur HP 
41 C/CV. 


au premier stage, si l'on vous apprends ce qu'est l'adressage 
Indirecte, on ne vous apprend pas comment récupérer les résultats, 
et j'ai profité de mes vacances pour sortir ces renseignements et 
l'utiliser dans mes calculs. : 

ainsi que l'utilisation des branchements inconditionnels ou condi- 
tionnels. 


le plus de choses pour un non-initié à 
ne pouvais pas toujours le déranger 


ï POUPEE m'a appris 
l'informatique, mais je 
souvent. 


À cause de mon travail, j'ai une quinzaine de patrons, et ce n'est 
pas les commandes qui me prennent beaucoup de temps, mais la 
correspondance ou bien les tarifs que je dois condenser pour les 
loger dans un classeur de poche. 


Je possède une machine à écrire à mémoire OLIVETTI TES 401, qui me 
rend de grands services. 
Puisque c'est un ordinateur conçu en 1979 pour cela. 


À ce courrier, je vous poste trois programmes, je n'ai pas encore 
eu le temps de mettre sur mes disquettes un autre programme de 
colisage. 


Pour chaque vais tenter de vous les expliquer 


séparesment. 


programme, je 


j'ai laissé de la place pour une lecture plus 
et aussi pour mettre des commentaires à 


Sur mes listings, 
aisé des programmes, 
chaque pas. 


J' chiffré certains programmes pour un controle éventuel, parce 
que je suis aperçu que si on oublie, ce qui m'arrive souvent, 
d'effacer “ USER ", et si l'on appuie sur une touche pendant que 
la HP fait ses calculs, on risque d'introduire d'autres programmes 
personnalisés. 


“ais maintenant en début de chaque programme,‘ je place . 


un CF 27 
qui annule la fonctidn USER 
Avec la possibilité de rappeler cette fonction en cours de pro- 
gramme, s'il faut le faire. 


De même aans tous mes programmes j'ai placé la 


FONCTION SF 21 
qui me permet d'arrèter la HP sur VIEW lorsque je n'ai pas 
d'imprimante, au lieu de placer un STOP, qui arrète les calculs à 
chaque fois avec l'imprimante. 
La suite de la lettre était au verso !!! C'est ce qui 
a retardé la publication. Le programme est plus loin 
dans ce numéro. : 


Si vous avez des conseils à me donner sur 
ces programmes, je me conformerai à vos recommanda- 
tions. 


Bien cordialement Pierre Lamy (Tk3) 


Lac 1 


Cher “onsieur, 


ercie :e votre £etit not. 


Pour re fac.!l:1er les correction, 

cranscrit smes progrannes sur na zachine à écrire en némoire 
t sourquo: il y a un dez1 interlisne entre cnaçue pas 

t peut-être une largeur sius grande que celle que vous souñaitez 


la eut vous renûre service, 


e 
+ Eeux vous lister res srogrannes avec ron :nprixante 





CE ou :IOP;; 


j'a: enfin trouvé la réthoce pour utiliser les cassettes 
T:-joint un résuré du =ode d'emploi. 





Je travaille avec “ POUFIE qui m'a fait entrer à la SICAFE 
[sine recrésentant 
1 très £ros reproche à la cassette 
lorsqu'ün ficnier est créé 
3i l'on efface un rrogramme que l'on 2 noûir é, 
5t si le nouveau est nius long que l'ancier 
l ne t:endra pas jans l'esrace créé par l'ancien srozranre 


ce qui occasionnera une perte de place 

garce qu'il n'y à pes de conpactage de la cassette 

et j'espère qu'un des nombreux utilisateurs de la cassette 
trouvera une solution. 


“our mon usaze personnel en tant que représentant, j'espèrai 
créer un fichier ciient 
et pouvoir ajouter les nouvelles commances aux précérientes, 
ce qu: n'est pas possible 
avec la SIC4PE je vais prospecter les horticulteurs 

et : FOUPEE doit me faire des logiciels 
ue gestion occupation des surfaces au mieux 
tenir un concte client ce ne sera pas possible avec les cassettes 
nais ce sera le travail de 1 PCUPEE 
parce qu'il a beaucoup d'idées 


£ien cordialenent; 


[2] 


A 


ÊETTES - 27 5e €2 


om d'un fichier :'AXI = 
7 caracteres 


Pour faire un fichier ce donnée 
Appeler le progranne 

entrer les jonrées 
on d'un Fichier 

afficher le \ondre de mémoires 


pour une Cassette vierge 
ou effacer une cassette 











EXG : NEY* 447 che 
utilisées 
Four stocker 1 progranre 7 EXG CREATE - jer fichier 
se placer sur ce programme Q SEEXR 
écrire | ddd,fff %RTR 
,le non üu Programme = Ficnier a . 
EXC : 4RTP pour 1 second fichier 
supprimer la, ee de SE HSE 
“br de ménoires dans 


rappeler le nom du fichier 
EXO VEPIFY 

pour sécuriser le programme 
et tous les fichiers 

EXQ SEC 


CREATE 
O (7?) SEEKF 


cdd,fff "URTRX 
Pour transcrire les données 


Pour l'effacer 
EXQ UNSEC 
EXQ : PURGE 


Nom du fichier 
O SEEKR 
ddd,fff READRX 
Pour Rappeler 1 Fichier 
Non du fichier 

EXC READSUB 


SECURISER CHAQUE DOSSIER 


rTA 
SIC 





Ancien Non, “ouveau Nom 


EX9 R 





* * * . 


Cher monsieur, 


Vous trouverez ci-joint le formulaire d'inscription au cha 
vitre PFC de Toulouse, dûment complété. 


De vlus, permettez moi de vous poser deux questions : 


- L'un des membres au ciub peut-il me procurer le 1isting 
a'un programme d'échecs pour un gros ordinateur, qu'elle 
qu'en soit sa longueur * Je songe evidemment à en extruire 
un programme pour la HP 41, 


- Est-il possible de continuer à recevoir Key Notes, sans 
devenir meubre de 1'U.P.L.E, qui m'intéresse peu 


Je me suis toujours demandé comment raire pour vositionner 
le vointeur sur une ligne de programme de numéro supérieur 

à 999, ne trouvant aucun renseisnement dans les manueis. 
J'ai par hasara trouvé une solution simole (grâce à une faus. 
3s manipulation de toucres). 

I1 suffit de raire CFO . E£X ; l'ufficnage aevient GTO .I_— 
Le même DTOCessus 8st aprlicable à la fonction EL et SIZ 
(faire LËL 264 et 0122 ESx), SIZ2 Eu me parait oarticulie_ 


remeuŸ intéressante : à quand 2000 registres à lu EP 4I ? 


“euillez par ailleurs considerer ma commande des numéros 
TIul à VINq4 4a PPC_T 

(regleusnt par cnèuyue ue 3O0F) ainsi ue ue jueiques feuilles 
d'information de PPU (feuille jaune). 


Salutations st remerciements amicaux 


Eric PIERUNEK 


* * * 


(T 76) 
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Monsieur Dodin, : 

- Je vous écris à propos de la nouvelle cir- 
culaire d'Octobre 82. Vous recherchez des responsables 
locaux pour le PPC; et bien que les membres du club ne 
soient pas encore trés nombreux de bretagne (fjene 
doute pas qu'ils le soient trés rapidement), je vous 
propose de me charger de coordonner nos activités pour 
l'Ille et vilaine en débordant éventuellement sur le 
Morbihan et la Loire Atlantique (du Nord)(ou autres). 
J'assure déja une bonne publicité sur Rennes et Redon. 

J'ai commandé le PPC ROM à Santa Anna aux 
environs du 20 Septembre mais les délais seront assez 
importants vu qu'il errivere par bateau. J'ai en effet 
trouvé exssif le prix du port par avion. Je serai en 
mesure d'en faire la démonstration à toute personne 
intéressée , dés que j'e l'aurai reçue. 

. Je me suis apperçu, en feuilletant le HHS 
Dictionnary, qu'il existait 2 XROM correspondent au 
PPC ROM, le XROM 10 et le XROM 20. Cela signifie-t-il 
qu'il existe un second module PPC? Et si oui, à quoi 
correspond=t-il? Lequel vais-je recevoir? 

Excusez-moi s'il vous plait les fautes de 
frappe, car je n'ai ma machine que depuis peu. Je ne 
l'ai pas encore "dans les doigts"... 

Cordialement 

Franck (1735) Lebastard : 

PS je n'ai toujours pas réussi à synthétiser la ligne 
45 du programme de lionel Ancelet pT du PPC=-T N°1 Sept 
Octobre. 


Cher 


OK pour la Bretagne qui donne le mouvement! 

Vous recevrez Les deux modules en même temps 
la même boîte. En effet le PPC ROM fait 8 K 
donc 2 "modules" et 2 N°XROM. Maïs tout cela 
le même "chip". 

Les fautes de frappe n'ont pas d'importance, 
mais le format de frappe en al 15,5 em de large gtmple 
interligne, recto seul, un ruban bien noîr et cela me 
fait gagner beaucoup de temps. La pluspart des articles 
du présent N°2 ont été tapés par leurs auteurs: du coup 
le joummal est plus gros... 


la ligne 45 est F4 10 00 01 69 
tapez "ABCDE" et Byte Grabbez le ".Sffaces le - et ta- 
pez # , sautez le X ,tapez LBL 00,FRC, revenez sur Le 


#, faites PACK, effacez le # puis revenez à la normale 
en supprimant le blocage du F4, ça doit marcher. 


et dans 
octet8;, 
est sur 


* * + * + 


Cher Président, 

Je vous envoie avec cette lettre un chéque 
de 200 F pour un lot de cartes magnétiques et pour 
vous adresser mes regrets concernant “les shémas publi- 
és dans les journeaux étrangers" (ref: "Services pay- 
ants" de la circulaire d'octobre 1982). 

Comme je le remarquais dans une lettre pré- 
cédente, je préférerai un systéme de prêt de documents 
car je dispose facilement d'une photocopieuse et le 
chéque de 200 F pourrait servir de caution...(...) 

Merçi pour votre travail 

Denis Demaugre (T67) 


IL y a, je crots, une confuston. Le service 
que je donne comme devant étre payant n'est pas la pho- 
tocopte des documents mais la fabrication en petite 
sérte de l'accessoire lut-même. 

Il n'est vrai ment pas rentable d'expédier 
3 feuilles pour photocopie, les timbres coutent plus 
cher que la photocopie elle même. 

Je me suis fixé pour régle de ne pas fatre 
de photocopie de publications disponibles dans le com- 
merce. D'une part c'est interdit par la loi, d'autre 
part je trouve cette interdiction justifiée car la ven- 
te de ces publications est souvent leur seule ressource 
et que généraliser les photocopies revtent à tartr la 
source. De plus les ehémas publiés sont souvent în- 
complets ou liés à de nombreuses références qu'il n'est 
pas simple de réunir. D'atlleurs st la diffusion en 
petite série de ces montages dans le club ne pose pas 
de probléme, ia fabrication à grande échelle et en de- 
rors du club est soumise au copyright et aux droits de 
l'auteur. 

Si Cela parait souhattable aux adhérents et 
st un Toulousain 8e propose pour le faire tl est pos- 
sitble d'envisager la création d'un "dosster Harvare" 
récapitulant les différents bricolages proposés. “ais 
il faudrait une photocopte des shémas et une traduction 
des commentaires ( de l'anglais et de l'allemand). 

Cela demande des recherches de corrections 
dans les numéros sutvants des publications et peut-étre 
certaines connaissances d'électronique pour juger de 
La viabilité des montages . Pas st simple 
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Cher Jean-Daniel, 
Depuis la rentrée,les occasions de te voir se font 
plus rares,si bien que je prends la machine comne ( 
tout le mondelliJe veux d'abord te préciser que le 
programme de poker est amériorable puisque j'ai 
trouvé quelques lignes plus rapides.Si ça intéres- 
se quelqu'un, je teles adresserai.Sinon, je peux,vu 
la longueur du programme vous l'enregistrer sur Car- 
te magnétique:il suffit de m'en envoyer six accompa- 
gnées d'un timbre poste. 
L'évolution de PPCT me parait formidable,en partie 
grace à tes nombreux efforts et sacrifices, mais aussi 
par la ligne de conduite adoptée.En effet,le Club : 
doit avant tout être en mesure d'assister les débu- 
tants sans pour celà se substituer au manuel d'uti- 
lisation.Mais cette assistance qui m'a fait défaut, 
n'‘élimine pas l'effort personnelnécessaire pour se 
familiariser avec la HP41.Et jusqu'à ce jour,le 
journal n'a pas rabaché le manuel! | 
Deuxième point important,la spécialisation:elle est 
nécessaire,car l'éventail dipplication de la HP est 
trop vaste pour un travail efficace d'un seul indi- 
vidu.Néanmoins,il peut arriver que certains numéros 
du journal nous paraissent ennuyeux, mais d'autres y | 
trouveront de quoi méditer!Ayant trouvé parfois trop 
d'informations à mon goût dans le journal PPC USA, je | 
me suis abonné à PPC UK.A vrai dire,je ne regrette 
rien car il se trouve aussi en GB des gens formidabl | 
es et très forts.Le PPC allemand m'intéresse aussi, 
malheureusement je connais trop peu cette langue.Je 
propose donc ceci:si un article de PPCUSA ou PPCUK 
vous interesse mais que le problème de langue soit ( 
trop ardu pour vous,vous m‘envoyez une photo de l'‘'ar 
ticle et je vous le traduirai contre une modique som- 
me.Prendre contact avec moi auparavant, car je ne tra- 
duirai pas l'annuaire... 
D'autre part,je suis à la recherche de classeur conve- 
nant au format de PPC USA ainsi qu'aux divers docume 
ents HP,c.a.d. de format américain.Toute information 
à ce sujet sera bienvenue. 
Quant à ceux et celles qui sont passionés de jeux de 
rôles, qu'ils m'écrivent car beaucoup de choses sont 
faisables avec notre merveille. 
Je fouine également du coté des interfaces vocales à 
brancher sur la HP.Je précise, interface vocale synthé- 
tisant la parole de telle façon à pouvoir dire n'im= 
porte quoi...Pour l'instant,seul un circuit américain 
le Votrax parait le plus interressant.Ce chip peut,à 
l'aide d'un circuit tout fait,se monter sur Apple. 
Celà peut vous paraitre beaucoup de choses à la fois 
mais avant de foncer,je préfère ameuter la basse-cour 
afin de ne pas louper un seul conseil. 
Encore bravo, J-Da..e.@t ils furent trois mille ..... 


Frédèrice Darin (T6) 


Les adhérents du PPC USA se posent souvent 
la question de savoir où trouver des classeurs à 3 
anneaux pour ranger leurs journeaux . Aprés enquéte 
j'ai trouvé 2 références convenables:Ref 9736 chez 
Doret à 120 F et ref 3301 chez Ordex à 46,05. J'ai 
commandé 2 exemplaires de la derniére référence. ( 
Vous pouvez les commander chez votre papetier habituel. 
Si une demande se fait jour je ferai une commande sur 
Toulouse, mais il me parait difficile de faire des ex- 
péditions vu le format . des nouvelles dans la circu- 
laire. 


* *+ * * * * 


Cher Monsieur, 

J'ai bien reçu les premiers numéros de votre 
journal, et je vous en remerçie; aprés une rapide lec- 
ture, je ne peux que vous féliciter pour votre travail, 
et jéspére que dans quelques temps je pourrai y parti- 
ciper; en effet, comme je vous l'ai dit dans ma premi- 
ère lettre, je suis étudiant à l'Ecole Polytechnique 
de Lausanne, et connaissant quelques personnes intéres- 
sées par la 41C, j'aimerai savoir s'il serait possible, 
avec votre accord bien entendu, de créer une section 
en Suisse Romande, à Lausanne, du club PPC? Nous avons 
eu cette idée avec une amie, qui est un revendeur HP. 
Si nous obtenions votre accord 


Nous avons déja un local qui pourrait fonctionner com- 
me “centrale” du club, ce local se trouvant dans un ma- 
gasin d'informatique HP. Si nous obtenions votre accord 
je pense qu'aprés une période d'organisation et de re- 
crutement, nous pourrions faire partager notre passion 
pour la h1C et peut ètre participer aux nombreuses trou- 
vailles qui restent à faire. Je puis vous assurer que 
nous attendons votre réponse avec impatience. (es) 


Philippe Romanesco (T69) 

J'ai déja répondu par retour du courrier 
que j'états enchanté de ce genre d'inttiative. Dans 
un premier temps, constdérez-vous comme un groupe 


local, envoyez-nous l'adresse de votre local et les 
dates de réunion. Passez par JL Basso (cf p2). Faites 
quand même attention à ne pas trop vous identifier à 
un seul revendeur HP, ce qui pourrait étre pris en 
mauvatse part par les autres. 


+ + + + 
James D. Creasy (9294) RD5 Toby run RD Danville Pennsyl- 
vannia 17821 USA 


à 

Gilles (9528) Barret (résumé) 

Cher Mr Barret, 

Ci-joint une copie de ma lettre de 16 pages à Richard 
Nelson de PPCJ. Je vous en envoie une copie car vous 
avez semblé intéressé par la manipulation de blocs: 
dans votre lettre publiée dans PPCJ V9 N6. C'est votre 
lettre, en fait, qui m'a décidé à soumettre cette rou- 
tine que j'utilise depuis deux ans. 

Votre propos sur le prix des accessoires ÆP 
et la nécessité pour PPCJ de rester accessible à tous 
correspond tout à fait à mon opinion. Je pense également 
que PPC ne doit pas étre trop infatué de la progremma- 
tion synthétique, car certains programmes utilisant les 
instructions standard peuvent utiliser moins d'octets 
que des progranmes synthétiques... 

En exemple le programme çi-joint, à comparer 
avec la routine 10-15 de CTR. 


(résumé de 16 pages..:) 

voiçi une routine de 42 octets pour la manipulation de 
blocs. Elle était à l'origine destinée à remplacer la 
fonction de la HP67/97 P-S d'échange des registres 
primaires et secondaires. 

La routine s'appelle aRM pour all Register Manipulator 
la routine jointe RNO sert simplement à placer dans les 
registres des nombres en ordre croissant pour les essais. 
le premier est un @ alpha pour controle. Cette routine 
réalise échanges, retournement, rotations, effacements 
de blocs selon le contenu de x,y, et les flags O et 1. 


CT dessous la routine et des exemples je vous latsse 
le soin d'expérimenter, cette routine semble effecti- 
vement trés putssante, avec en corrélation le danger 
d''effets de bord" désastreux st elle n'est pas bien 
mattrisée. Comme tout élément puissant elle doit étre 
mantée avec précautton, c'est sans doute son seul dé- 
faut. 

on peut également pratiquer des inserttions,et par des- 
sus le marché x et y sont préservés en z et t!!. 
Amusez-vous bien... 





XEQ “RNO" 


XEQ “RNO° 


81eL8L °° SIZE 832 XEQ “RHO- KEQ “RHO° XEQ “RKO" 
82 STO L XEQ “RHO* HOMEXISTENT  HOHEXISTENT KOHEXISTENT 
83 RDN NOHEXISTENT CF @@ -10,98 ENTERT  ‘-1g,88 ENTER* 
84 ENTER CF 88 CF 81 7,84381 7, 88282 
85 RDX CF 81 13,88 ENTER? XEQ “arn” YEQ “ar” 
86 RDH 18,98 ENTER? 24,81281 PRREGC PRREC 
e7met 81 |" 7 PRE 
XEQ “arm” h 
88 RCL IHD L PRREC R8G= “9,88” REE= “8,88 
89 R+ RaI= 1,88 RA1= 1,08 
18 ST- L R8B= 18,88  RBB= 13,60  R82= 2,88 RG2= 2,68 
11 RDX ROI= 11,88  Rl= 14,88  RO3= 3,88 ROZ= 13,88 
12 K() INBL  R82= 12,68 Re2= 15,88  R84= 14,88 R84= 4,08 
13 R+ R9Z= 13,88 R93= 16,88  RES= 15,88 RGS= 15,88 
14 ST# L Rg4= 14,88  RB4= 17,89  Raé= 16,88 R86= 6,88 
15 RDX R9S= 15,88  RAS= 18,88  Ra7= 17,88 RO7= 17,68 
16 FS? 84 R86= 16,88  RB6= 19,88  Res= 8,88 RGS= 8,86 
17 CLX RO7= 17,80  RG7= 28,88  RAS= 9,88 RES= 9,88 
18 FC? 81 RAS= 18,99  RB8= 21,80  RI8= 19,88 RIS= 18,88 
19 STO IHDL R89= 19,88  RA9= 22,8 RII= 11,88 RIi= 11,88 
28 RDX RI8= 8,88"  RIB= 23,88 RI2= 12,88 RI2= 12,88 
at DEL RII= 1,88 RII= 24,88 “RIJ= 13,88 RIZ= 3,88 
22 GTO 8i RI2= 2,88 RI2= 12,88 Ri4= 4,88 RId= 14,88 
23 RTH RI3= 3,86 RII= “9,88  RIS= 5,80 RIS= 5,80 
Ri4= 4,88 Ri4= 1,88 RI6= 6,88 RIé= 16,88 
246BL “RHO®  RIS= 5,88 RIS= 2,80  RI7= 7,8 RI7= 7,88 
25 CLA RI6= 6,88 RI6= 3,80  RIS= 18,88 RIS= 18,68 
26 8 R17= 7,68 R17= 4,88 R19= 19,88 RI9= 19,68 
27 ARCL X R18= 3,88 RI8= 5,88 R28= 28,68 R28= 20,68 
28 ASTO IHD x  R19= 9,88 RIS= 6,88  R21= 21,88 R2t= 21,60 
1 R28= 28,88  R28= 7,88  R22= 22,88 R22= 22,80 
R21= 21,80 R21= 8,88 R23= 23,88 R23= 23,68 
38LBL 88 R22= 22,84  R22= 9,88  R24= 24,88 R24= 24,88 
31 STO IHDX © R23= 23,88  R2J= 18,88 R25= 25,88 : : 
21 R24= 24,88 R24 1,88 R26= 26,99 <CAange par série 
33 + R2S= 25,88 échange partteli 
34 GTO 38 R26= 26,80 


simple échange 
Echange P-5 


35 EXD 


HOHEXISTENT NONEX NOHEX on 
28,88 ENTERT die! SF 89 NE 8e 
ue, Le CF 8! . 81 
8,08 ENTER ENTER 
PRREG rE ne HS , 
R8B= 8,08" PRREG pme 
RI= 1,88 “2 
Ré2= 17,88 R86= *8,09° 
RO3= 16,88 R@Iz 1,88 sr a 
RG4= 15,80 RE2= 2,00 = 2.8 
= 1499 = 6,08 RE= 3,08 
Rg6= 13, R84= 9,88 R84= 18,88 
R97= 12,88 ReS= 8,89 = 19,88 
R8= 11,88 R&G= 0,80 R&G= 20,88 
R89= 18,88 Re7= 6,88 R97= 21,88 
R16= 9,88 RS= 8,88 R88= 22,88 
RI1= 8,88 R89= 9,88 R49= 9,88 
R12= 7,88 RI8= 9,8 R1E= 18,88 
RI3= 6.88 Ri1= 8,0 RI1= 11,88 
ne . RI2= 9,98 RI2= 12,88 
15 98 R13= 9,88 R13= 13,88 
ne + Ri4= 0,88 RI4= 14,88 
æ 2; RIS= 9,89 R1S= 15,88 
RIS= 18,88 RIG= 16,89 RI6= 16,88 
R19= 19,88 R17= 17,88 R17= 17,88 
r28= 28,88 RI8= 18,88 RI8= 18,88 
R2L= En R19= 19,88 R19= 19,89 
= 22, R28= 28,68 R28= 28,88 
R23= 23,80 : ! 
RAE= 24,88 Ps 20 
R2S= 25,88 m 
Re R23= 23,88 
R27= 27.08 Eu 
R28= 28,88 Le 
R29= 29,88 R26= 26,89 
Re 30.00 F8 23.0 
R29= 29,88 
R38= 38,88 
R3I= 31,88 
k % * + 


Réponses à des lettres non publiées faute de place... 


T35- Un long délai de réaction de PPC-USA est habituel, 
Je viens de recevoir des documents commandés en Avril 
82! Mais ce délai s'améliore grandement deputs l'embau- 
che d'une secrétatre. 

Le PPC ROM est trop cher pour que nous putse- 
stons faire une commande groupée-Wo money enough! 
- les affiches PPC-T sont toujours dt spo- 
ntbles. à 

— PPC-T n'est pas riche (cf çi-dessus) mais 
quand même assez maintenant pour pouvoir s'équiper en 
cartes magnétiques. St vous voulez: que vos cartes vous 
sotent retoumées, joignez une enveloppe timbrée à votre 
adresse avec la mention "retour cartes". 

— les cartes actuellement en notre posses- 
sion seront retoumées gratuitement à leur envoyeur 
dans les semaines qui viennent. Je pense inutile d'ef- 


, Jectuer ce retour pour une seule carte compte tenu des 


frats de timbre à moins de pouvoir profiter d'un envoi, 


mats tl est assez difficile d'isoler des enveloppes in- 
dividuelles au moment des envois, aussi soyez pattents.. 


T16- Si 11 faut encore quelques fois tourner Le Jourmal 
pour lire un article c'est que celui-çi n'était pas ta- 
pé au bon format. Compte tenu du nombre d'articles re- 
çgus en ce moment 1l deviendra de plus en plus rare de 
passer des articles mal formattés. 


TS9-Nous sommes intéressés par tous les articles sur 
les différents accessoires comme les moduties Math, ft- 
nance, etc et les périphériques "rares" comme Le mul- 
timétre ou le convertisseur. St vous avez La moindre 
opportunité de le fatre, n'y manquez pas! 

L'achat (couteux!) des périphériques de ia 
gamme AP-IL me parait nécessiter une étude de coût et 
de rentabtlité qui dépent de la situation de chacun. 
Personnellement je ne posséde aucun de ces accessoires. 
Cela me géne pour les essais de programmes du club 
mats nullement dans ma profession. Ces "jouets" sont 
un peu chers. J'at préféré m'équiper pour le micro- 
code (en fait l'Eprom Box + le programmateur d'Eprom 
SOFTY coûtent motns que le lecteur de cassettes et me 
parmet de faire un travail qui du point de vue pro- 
grammatton est passtonnant. Chacun ses choix... 


T40- J'attends avec impatience ton article sur Les 
ptéges de la vente des micro ordinateurs, ne me fats 
pas trop langutr! 


PPC-T N 2° 
NOVEMBRE. DECEMBRE 
1982 P17 


L’HP.IL ET LES NOUVEAUX 


PERIPHERIQUES DU HP 41 


Üne nouvelle étape est franchie dans le domaine des calcu- 
lateurs portables. 

Le nouveau système d'interface HP IL, mis au point par Hewiett- 
Packard, permet à votre calculateur HP 41 C ou HP 41 CV de dialo- 
guer avec une variété de périphériques compatibles tels que des uni- 
tés de stockage de masse ou des imprimantes. Le résultat: un 
système de calcul économique et portable. 


000000000000 





e L'HP-IL relie entre eux le calculateur et les périphériques en for- 
mant un circuit de communication: La boucle d'interface permet de 
relier jusqu'à tremte périphériques à votre HP 41. 

Les nouveaux périphériques existant actuellement, sont outre l'inter- 
face HP-IL lui-même qui transforme votre HP 41 en contrôleur de 
boucle, une unité de cassette et une imprimante possédant de nou- 
velles fonctions. 

e L'interface HP-IL associé à votre calculateur lui donne toute la 
puissance et la souplesse d'utilisation de systèmes de calcul beau- 
coup plus onéreux. 


eeseseceresseeeceseeseesesceseceecevcececeseeeecsessece 


Bon à retourner à La Règle à Calcul 
65/67, Bd St-Germain 75005 Paris 
Je désire recevoir: 
[] une documentation sur le HP-IL 


Code Postal 


ee.eesececcs 


La Règie à Calcul 65/67, "Bi Sérnan : 78008 En 
Ta: 325.68.88 - Téiex: ETRAV 220064 F/1303 RAC 


6 HEWLETT 
PACKARD 


PUBLICITE 


*X + * 


T67- recherche d'autres personnes intéressées pour l'a- 
chat d'un lot de 10 convertisseurs HP-IL. Je pense que, 
en vous recommandant du club vous pouvez obtentr un 
convertisseur à pas cher à La SICAPE (voir pub danse N°1) 
St vous voulez je peux vous fournir une photocopie du 
manue | technique du convertisseur (36 pages, 18 F + E 

T à 5,80) qui à ma connatssance n'est pas livré avec 

vs appareil - À la lecture de cette notice on comprend 
que ce convertisseur est quelque chose de fantastique, 
trés loin d'être encore exploité. 


+ * * 
EN DIRECT DES ULLIS: 


Le &P ?75C ne sera commerctaltaé en France 
que quand cette commerctalisatton sera possible dans de 
bonnes conditions de disponibilité des appareils, de 
traduction de la notice, de disponibilité des program- 

.mes d'application. ’ 

Sont annoncés: le ROM Duplicattion/autostart 
20041-15042 au priz de 340 F, ce ROM permet outre un 
départ automatique perfectionné d'un systéme 4P41C, la 
copte simultanée et automatique de cassettes, jusqu'a 
23 copies d'un coup st j'at bien compris. N'eziste en 
France qu'en 1 exemplaire pour l'instant. Pour profes- 
stonnels seulement. 

Le clavter souple pour 4P 41C attendu par 


sous leg lecteurs de XeyNotes ref 32200 A au priz de ... 

227,14 F !!! :ntéressant quand même pour la A ruive 

‘étanchéité du ciavter, travail main sales en atelier). 
Les modules de programmes: 15004 Financtai 


lectsaton (1B et IC), 15027 Stress anaiysts (14), 15021 
Ztructural analysts (14). Les modules défectueux seront 
remplaçés gratuttement par le service aprés vente. 

Le module grapnique 4P 321844 permet à 
za 41C + ÆP-IL de controler un traceur 4P7470A. Ce mo- 
iule contient des fonctions graphiques sophistiquées 
pour la génération des codes barre, d'htstogrammes, de 
iiagrammes en cercle et le tracé de courbes en =,y. IT 
contient 52 fonctions graphiques, dont 10 pour es co- 
les barre. A vérifier: peut-être 2es fonctions sont-el- 
es ausst appitcabies à l'imprimante 32182 4?7? 

priz environ 850 {+ 13 900 F pour le 
sraceur!]) pas de manuel en français avant Mat 33. 

Advanced Function Handbook 90015-90011 


F 


Dtrecteur de la publication Jem-Dantel Dodin 
Imprimé par COREP 21 rue de 


Y°Commisston parttatre: en cours 


La Yiguerte 31300 TOULOUSE 


manuel de math de haut niveau, en anglais, pour 191 F 

La fabrication des série E/C (32,33,34,37, 
38) est arétée, la livraison se poursuit dans La limite 
des stocks. 

La HP 67 est morte, gloire à son âme... 
mate la 97 en a encore pour un am. 

. 

Ci-joint les priz d'intervention de HP 
sur ses machines. Comme vous pouvez le voir 1l y a un 
priz unique par modéle. St vous désirez une intervention 
peu ordinaire, demandez un devts avant.Lles priz sont tte 
et peuvent varter... 


10 À 611.52 33 E 235.20 67 À 705.60 
19 C 705.60 34 C 311.64 70 A S64.48 
21 A 311.64 35 A 564.48 80 À S66.48 
22 A 311.64 37 E 235.20 91 À 664.44 
25 A 311.64 38 C 311.64 92 A 664.64 
25 C 370:84 38E 235.20 97 4 929.084 
27 A 370.44 &1 C 592.70 97 S 1 128.96 
29 C 370.44 41 CV 592.70 32104 A 3505.68 
31e 199.92 85 À 564.48 82143 À 646.30 
32E 199.92 55 A 592.70 32153 À 525.34 
33 C 311.64 65 A 2-0 
Sont arrivés à th de Leur abonnement les 2dhérents 


V°; 


T2 I4 T7 T26 T33 T37 T38 T43 T4S5 Th6 T48 T49 TSO TS2 
TS6 T59 T61 T63 Té& T65 T67 T69 70 T72 T73 T74 T83 T84 
T88 T89 T90 T92 sauf erreur ou ommission. n'oubliez-pas 
de vous mettre à jour avant noël... 
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